این کار شدنیه اما باید به یه نکته توجه کنی، اونم اینه که تو فورم لود باید چک کنی ببینی اینترنت وصله یا نه!!
اگه این کارو نکنی موقع دریافت اطلاعات از نت ارور میده و از برنامه خارج میشه!
کد نهایی اینه!!

Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long

Dim pass As String



Public Sub CkeckConnection()

Dim CRes As Long

If IsNetworkAlive(CResult) = 0 Then

MsgBox "شما به اینترنت دسترسی ندارید"

End

Else

pass = Inet1.OpenURL("http://cowboy1.persiangig.com/.C8KemX9oFh/password.txt")

End If

End Sub



Private Sub btnSubmit_Click()

If txtPassword.Text = pass Then

MsgBox "Login successful"

Else

MsgBox "Login failed", vbCritical

End If

End Sub



Private Sub Form_Load()

CkeckConnection

End Sub