Aus Ihrem Programm heraus können Sie direkt eine
    Internetseite aufrufen:

ERFORDERLICHE OBJEKTE

   1 Label (URL)

 FORM-CODE

   Private Declare Function ShellExecute Lib "Shell32.dll" Alias _
      "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String,_
      ByVal lpFile As String, ByVal lpParameters As String, _
      ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

   Private Function CallWebSite(ByVal URL As String) As Long
      CallWebSite = ShellExecute(0&, vbNullString, URL, vbNullString, _
         vbNullString, vbMaximizedFocus)
   End Function

   Private Sub Form_Load()
      With URL
         .ForeColor = &HFF0000
         .Font.Underline = True
         .MousePointer = 99
         .MouseIcon = LoadPicture("hand.cur")
         'Hand.cur befindet sich im Archiv !
      End With
   End Sub

   Private Sub URL_Click()
      CallWebSite (URL.Caption)
   End Sub