visual basic ten internete

VB den İnternete
--------------------------------------------------------------------------------
viyjul beyzik ten çok kısa olarak internettesiniz.....(not..:girdiğiniz sitelerin adresleri gözükmemektedir..yani istediğiniz sitelere girebilirsiniz...:))
Private Sub Combo1_Click()
Dim strURL As String
strURL = Combo1.Text
If WebBrowser1.Busy = False Then
WebBrowser1.Navigate strURL
Else
Beep
End If
Combo1.AddItem Combo1.Text
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim strURL As String
If KeyAscii = 13 Then
strURL = Combo1.Text
If WebBrowser1.Busy = False Then
WebBrowser1.Navigate strURL
Else
Beep
End If
Combo1.AddItem Combo1.Text
End If
End Sub

Private Sub commgo_Click()
Dim strURL As String
strURL = Combo1.Text
If WebBrowser1.Busy = False Then
WebBrowser1.Navigate strURL
Else
Beep
End If
Combo1.AddItem Combo1.Text
End Sub