Option Explicit

Private Sub cmdFill_Click()
’sayfada daha cok formlar varsa bunlar document.forms(1) ve (2) diye devam belirtilir.


With wbrWebBrowser
.Document.Forms(0).field1.Value = txtName.Text
.Document.Forms(0).field2.Value = txtTime.Text
.Document.Forms(0).field3.Value = txtDate.Text
.Document.Forms(0).textfeld.Value = lblText.Caption
End With
End Sub

Private Sub cmdSend_Click()
’formdaki klick funksiyonu
wbrWebBrowser.Document.Forms(0).submit.Click
End Sub

Private Sub Form_Load()
wbrWebBrowser.Navigate App.Path & “\form.htm”
txtName.Text = “Anonymus”
txtTime.Text = Time
txtDate.Text = Date

lblText.Caption = “test test test”
End Sub