Private WithEvents webel As HtmlElement
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If Me.WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
webel = Me.WebBrowser1.Document.Body
End If
End Sub
Private Sub webel_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs) Handles webel.KeyUp
Me.Text &= Chr(e.KeyPressedCode)
End Sub