My web browser in Visual basic 6.0

this video tutorial I show you all my simple web browser
and the code surce


Private Sub calculadora_Click()
On Error GoTo errHandle
Dim a As Double
a = Shell("C:\WINDOWS\System32\calc.exe", vbNormalFocus)
Exit Sub
errHandle:
MsgBox "Unable to run Calculator Utility on your computer", vbInformation, "Error in opening!!!"
Resume Next
End Sub

Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Command10_Click()
WebBrowser1.Navigate2 "www.wikipedia.com"
End Sub








Private Sub Command2_Click()
WebBrowser1.Refresh
End Sub

Private Sub Command3_Click()
WebBrowser1.Stop
End Sub

Private Sub Command4_Click()
WebBrowser1.Navigate2 "www.youtube.kz"
End Sub

Private Sub Command5_Click()
WebBrowser1.GoBack
End Sub

Private Sub Command6_Click()
WebBrowser1.GoForward
End Sub

Private Sub Command7_Click()
WebBrowser1.Navigate2 "www.google.kz"
End Sub

Private Sub Command8_Click()
WebBrowser1.Navigate2 "http://login.live.com/login.srf?wa=wsignin1.0&rpsnv=10&ct=1239152829&rver=5.5.4177.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=3082&id=64855&mkt=es-ES"
End Sub


Private Sub Command9_Click()
WebBrowser1.Navigate2 "www.rambler.ru"
End Sub

Private Sub diccionario_Click()
WebBrowser1.Navigate2 "http://www.elmundo.es/diccionarios"
End Sub

Private Sub facebook_Click()
WebBrowser1.Navigate2 "www.facebook.com"
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate2 "www.kazakanjes.com"
End Sub

Private Sub google_Click()
WebBrowser1.Navigate2 "www.google.kz"
End Sub

Private Sub mail_Click()
WebBrowser1.Navigate2 "www.mail.ru"
End Sub



Private Sub messenger_Click()
WebBrowser1.Navigate2 "http://login.live.com/login.srf?wa=wsignin1.0&rpsnv=10&ct=1239152829&rver=5.5.4177.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=3082&id=64855&mkt=es-ES"
End Sub

Private Sub monografias_Click()
WebBrowser1.Navigate2 "http://www.monografias.com"
End Sub

Private Sub netlog_Click()
WebBrowser1.Navigate2 "ru.netlog.com"
End Sub

Private Sub notepad_Click()
FrmNotePad.Show
End Sub

Private Sub rambler_Click()
WebBrowser1.Navigate2 "www.rambler.ru"
End Sub

Private Sub salir_Click()
Unload Me
End Sub

Private Sub traductor_Click()
WebBrowser1.Navigate2 "http://translate.google.com/?sl=ru&tl=ru#"
End Sub

Private Sub wikipedia_Click()
WebBrowser1.Navigate2 "www.wikipedia.com"
End Sub

Private Sub yandex_Click()
WebBrowser1.Navigate2 "www.yandex.ru"
End Sub