Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
_____________________________________________________
 
Public Class Mein Formular
    Dim WithEvents MeineWebseite As mshtml.HTMLDocument
_____________________________________________________
Private Sub WebBrowser1_PreviewKeyDown_1(ByVal sender As System.Object, ByVal e _
As System.Windows.Forms.PreviewKeyDownEventArgs) Handles _
WebBrowser1.PreviewKeyDown
 
 MeineWebseite = Me.WebBrowser1.Document
 
' ermitteln des Elementnamens
 
 
Me.txtTextfeld1.Text = MeineWebseite..activeElement.name
 
'Element ausfüllen
 MeineWebseite.forms.item(0).elements((Me.txtTextfeld1.Text)).Value = "hallo"

MeineWebseite.frame("mainFrame").forms.item(0).elements(( _
  Me.txtTextfeld1.Text)).Value = "hallo"