Private Sub Upload_umschalten()
Dim temp As String
temp = mnuUpload.Item(1).Caption
If temp = "Upload anhalten" Then
  Timer1.Enabled = False
  mnuUpload.Item(1).Caption = "Upload fortsetzen"
  frmMain.Icon = LoadPicture(App.Path & "\RepInfor.ico")
  Icon_darstellen
End If
If temp = "Upload fortsetzen" Then
  Timer1.Enabled = True
  mnuUpload.Item(1).Caption = "Upload anhalten"
  frmMain.Icon = LoadPicture(App.Path & "\RepInfo.ico")
  Icon_darstellen
End If
End Sub
 
Private Sub Icon_darstellen()
With nid
  .cbSize = Len(nid)
  .hWnd = Me.hWnd
  .uId = vbNull
  .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  .uCallBackMessage = WM_MOUSEMOVE
  .hIcon = Me.Icon
  .szTip = Me.Caption & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
DoEvents
End Sub