Private Sub mnuソース_Click()

    Source.Show vbModal

End Sub

' *************************************************
' HTMLソース
' *************************************************
Private Sub Form_Load()

    Source.HTML.Text = Browser.WWW.Document.All.Tags("BODY")(0).InnerHTML
    
    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 HTML
        .Top = 0
        .Left = 0
        .Width = rc.Right
        .Height = rc.Bottom
    End With
    
End Sub