VB den nete

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