Private Sub NotifyAusgaben(Nachricht As String)
 
    tooltipDelay = My.Computer.Registry.CurrentUser.OpenSubKey("Control" & _
      "Panel\Accessibility").GetValue("TooltipDelay")
 
    My.Computer.Registry.CurrentUser.OpenSubKey("Control Panel\Accessibility", _
      True).SetValue("TooltipDelay", ( _
      My.Settings.Einstellungen_Sicherheitsfragen_Balloontip_Anzeigedauer * _
      1000).ToString)
 
    messageDuration = My.Computer.Registry.CurrentUser.OpenSubKey("Control" & _
      "Panel\Accessibility").GetValue("MessageDuration")
 
    My.Computer.Registry.CurrentUser.OpenSubKey("Control Panel\Accessibility", _
      True).SetValue("MessageDuration", ( _
      My.settings.Einstellungen_Sicherheitsfragen_Balloontip_Anzeigedauer * _
      1000).ToString)
 
    icn_TaskleistenSymbol.Visible = True
    icn_TaskleistenSymbol.BalloonTipTitle = Nachricht
    icn_TaskleistenSymbol.BalloonTipText = IO.Path.GetFileNameWithoutExtension( _
      VordergrundFensterOwner) & " | " & VordergrundFensterTitel
    icn_TaskleistenSymbol.ShowBalloonTip() ' Überladung mit 
    ' My.Settings.Einstellungen_Sicherheitsfragen_Balloontip_Anzeigedauer * 
    ' 1000 funktioniert nicht mehr
end sub

Private Sub icn_TaskleistenSymbol_BalloonTipClosed(sender As Object, e As _
  EventArgs) Handles icn_TaskleistenSymbol.BalloonTipClosed
 
    My.Computer.Registry.CurrentUser.OpenSubKey("Control Panel\Accessibility", _
      True).SetValue("MessageDuration", messageDuration.ToString)
 
    My.Computer.Registry.CurrentUser.OpenSubKey("Control Panel\Accessibility", _
      True).SetValue("TooltipDelay", tooltipDelay.ToString)
 
    If My.Settings.Programm_SymbolInTaskleiste = 1 Then
        icn_TaskleistenSymbol.Visible = True
    Else
        icn_TaskleistenSymbol.Visible = False
    End If
End Sub

Private Sub NotifyAusgaben(Nachricht As String)
    ' ID des aktuellen Users auslesen
    selectedUserSID = My.Computer.Registry.LocalMachine.OpenSubKey( _
      "SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI").GetVa_
      lue("SelectedUserSID")
 
    ' MessageDuration auslesen
    messageDuration = My.Computer.Registry.Users.OpenSubKey(selectedUserSID & _
      "\Control Panel\Accessibility").GetValue("MessageDuration")
 
    ' Meine eigene MessageDuration schreiben
    My.Computer.Registry.Users.OpenSubKey(selectedUserSID & "\Control" & _
      "Panel\Accessibility", True).SetValue("MessageDuration", ( _
      My.Settings.Einstellungen_Sicherheitsfragen_Balloontip_Anzeigedauer))
 
    ' Symbol anzeigen
    icn_TaskleistenSymbol.Visible = True
    ' Title reinschreiben
    icn_TaskleistenSymbol.BalloonTipTitle = Nachricht
    ' Untertitel reinschreiben
    icn_TaskleistenSymbol.BalloonTipText = IO.Path.GetFileNameWithoutExtension( _
      VordergrundFensterOwner) & " | " & VordergrundFensterTitel
    ' Balloon-Nachricht anzeigen
    icn_TaskleistenSymbol.ShowBalloonTip( _
      My.Settings.Einstellungen_Sicherheitsfragen_Balloontip_Anzeigedauer)
 
    ' Weil - warum auch immer die folgende Sub "BalloonTipClosed" nicht wie 
    ' erwartet automatisch nach Zeitablauf der "MessageDuration" selbst 
    ' aufgerufen wird, einen Delay-Aufruf mit meiner "MessageDuration" starten 
    Delay(My.Settings.Einstellungen_Sicherheitsfragen_Balloontip_Anzeigedauer)
    ' Wenn Zeit abgelaufen, das Taskleistensymbol ausblenden. Dadurch erst wird 
    ' die folgende Sub "BalloonTipClosed" aufgerufen
    icn_TaskleistenSymbol.Visible = False
 
End Sub
 
Private Sub icn_TaskleistenSymbol_BalloonTipClosed(sender As Object, e As _
  EventArgs) Handles icn_TaskleistenSymbol.BalloonTipClosed
 
    ' Original "MessageDuration in Registry schreiben
    My.Computer.Registry.Users.OpenSubKey(selectedUserSID & "\Control" & _
      "Panel\Accessibility", True).SetValue("MessageDuration", messageDuration)
 
    ' Taskleistensymbol wieder anzeigen, wenn Einstellungen = "Symbol in" & _
      "Taskleiste"
    icn_TaskleistenSymbol.Visible = My.Settings.ICE_SymbolInTaskleiste
 
End Sub
 
    Public Sub Delay(nSekunden As Long)
        Dim TimeOut As Long
 
        TimeOut = (GetTickCount / 1000) + nSekunden
        Do
            Application.DoEvents()
        Loop Until TimeOut < (GetTickCount / 1000)
    End Sub