Private Sub Command1_Click()
WebBrowser1.Navigate = Text1.Text
End Sub
Private Sub Command2_Click()
WebBrowser1.GoHome
End Sub
Private Sub Command3_Click()
WebBrowser1.GoForward
End Sub
Private Sub Command4_Click()
WebBrowser1.GoBack
End Sub
Private Sub Form_Load()
WebBrowser1.GoHome
End Sub
Hiç yorum yok:
Yorum Gönder