home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD90538172000.psc / Internetlink.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-18  |  367 b   |  14 lines
  1. Attribute VB_Name = "Internetlink"
  2. Option Explicit
  3.  
  4. ' InternetlΣnkar
  5.  
  6. Public Declare Function shellexecute Lib "shell32.dll" Alias _
  7. "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
  8. String, ByVal lpFile As String, ByVal lpParameters As _
  9. String, ByVal lpDirectory As String, ByVal nShowCmd As _
  10. Long) As Long
  11.  
  12. Private Const SW_SHOWNORMAL = 1
  13.  
  14.