home *** CD-ROM | disk | FTP | other *** search
/ 100 Great Games for Palm OS 2 / PalmV2012301.ISO / asanka.txt < prev    next >
Text File  |  1999-08-23  |  695b  |  17 lines
  1. This is the code to lauch the browser    
  2. Private Declare Function ShellExecute _
  3.                             Lib "shell32.dll" _
  4.                             Alias "ShellExecuteA"( _
  5.                             ByVal hwnd As Long, _
  6.                             ByVal lpOperation As String, _
  7.                             ByVal lpFile As String, _
  8.                             ByVal lpParameters As String, _
  9.                             ByVal lpDirectory As String, _
  10.                             ByVal nShowCmd As Long) _
  11.                             As Long
  12.  
  13. Private Sub Command1_Click()
  14.    Dim r As Long
  15.    r = ShellExecute(0, "open", "http://www.microsoft.com", 0, 0, 1)
  16. End Sub 
  17.