[gachboy]

سلام.ویژال به سه خط زیر گیر میده به نظرتون مشکلش کجاس؟

کد:

Private Declare Function IsValidURL Lib "URLMON.DLL" (ByVal pbc As Long, ByVal szURL As _
String, ByVal dwReserved As Long) As LongPrivate Const S_FALSE = &H1
Private Const S_OK = &H0Public Function IsGoodURL(ByVal sURL As String) As Boolean