Option Explicit
'מחזיר את תוצאת החיפוש לדפדפן שנמצא על הטופס
Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.ripe.net/perl/whois?form_type=simple&full_query_string=&searchtext=" & txtAddress.Text & "&do_search=Search"
End Sub
'זה רק בשביל להקל על המשתמש שכאשר הוא לוחץ אנטר בתיבת טקסט, זה כאילו לחיצה על הכפתור
Private Sub txtAddress_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Call Command1_Click
        KeyAscii = 0
    End If
End Sub