Private Function CreatejfcControl(ByVal Filename As String) As Boolean
        Dim Browser As New WebBrowser
        Me.Controls.Add(Browser)  ' Browser anzeigen
        AddHandler Browser.GotFocus, AddressOf BrowserEvent ' Ereignisprozedur 
        ' definieren
        Return True
    End Function
 
Private Sub BrowserEvent(ByVal sender As Object, ByVal e As System.EventArgs)
Msgbox("Browser GotFocus!")
    End Sub