Private Sub command1_Click()

Dim strURL As String

strURL = "http://www.*********.com/ismailaydin0/ismail.jg"

If WebBrowser1.Busy = False Then

bCancelThisDownload = False

WebBrowser1.Navigate strURL

Else

Beep

End If

Exit Sub

End Sub

Private Sub Form_Load()

command1.Caption = "Sorgula"

End Sub

Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)

MsgBox "de"

End Sub

hicbir forumda yok sadece ForumTR 'de
__________________