' *************************************************
' コントロール位置の最適化
' *************************************************
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 = Location.Height
        .Width = rc.Right
        .Height = rc.Bottom
    End With

    With Location
        .Left = 0
        .Top = 0
        .Width = rc.Right
    End With

End Sub

' *************************************************
' ページ表示後の処理
' *************************************************
Private Sub WWW_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

    Location.Text = URL

End Sub

' *************************************************
' ベージを変更
' *************************************************
Private Sub Location_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then
        WWW.Navigate2 Location.Text
    End If

End Sub