Private Sub Ok_Click()
GotoURL ("http://www.sigpune.com")
End Sub

Sub GotoURL(URL As String)
Dim Res As Long
Dim TFile As String, Browser As String, Dum As String

TFile = App.Path + "\test.htm"
Open TFile For Output As #1
Close
Browser = String(255, " ")
Res = FindExecutable(TFile, Dum, Browser)
Browser = Trim$(Browser)

If Len(Browser) = 0 Then
MsgBox "Cannot find browser"
Exit Sub
End If

Res = ShellExecute(Me.hwnd, "open", Browser, URL, Dum, SW_SHOWNORMAL)
If Res <= 32 Then
MsgBox "Cannot open web page"
Exit Sub
End If
End Sub

can someone explain in simple language wat the program does step my step.:!:. Man this homework to understand is making me bite my nails

It is visual basic (cant tell which version but i think its .NET)

dont know what it does really

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.