Private Sub Ok_Click()
GotoURL ("http://www.sigpune.com")
End SubSub GotoURL(URL As String)
Dim Res As Long
Dim TFile As String, Browser As String, Dum As StringTFile = 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 IfRes = 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