| Private Sub Form_Load()
With WWW
.Navigate2 "http://yahoo.co.jp"
End With
Form_Resize
End Sub
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Exit Sub
End If
Dim rc As RECT
GetClientRect Me.hwnd, rc
With WWW
.Left = 0
.Top = 0
.Width = rc.Right
.Height = rc.Bottom - GetSystemMetrics(SM_CYMENU)
End With
End Sub
| |