Option Explicit
 
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 Sub URLGoTo(ByVal hWnd As Long, ByVal URL As String)
    Screen.MousePointer = 11
    Call ShellExecute(hWnd, "Open", URL, "", "", 1)
    Screen.MousePointer = 0
End Sub
 
Private Sub Form_DblClick()
    Unload Me
    End
End Sub
 
Private Sub Form_Load()
    Me.Show
    Me.WindowState = 1
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    If Button = 2 Then
       Me.PopupMenu mnuFile
    End If
End Sub
 
Private Sub lblCopy_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
    If Button = 2 Then
       Me.PopupMenu mnuFile
    End If
End Sub
 
Private Sub mnuFile_Min_Click()
    Me.WindowState = 1
End Sub
 
Private Sub tmrTimer_Timer()
    URLGoTo Me.hWnd, _
      "http://camelot-europe.goa.com/inscription-err.php?language=de"
End Sub