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