Imports System
Imports System.Windows.Forms
Imports System.Drawing
 
 
Public Class Service1
 
    Public WithEvents TrayIcon As NotifyIcon
    Private ServiceTimer As System.Timers.Timer
 
 
 
    Protected Overrides Sub OnStart(ByVal args() As String)
 
        EventLog.WriteEntry("Der IconTray-Testdienst wurde gestartet.", _
          EventLogEntryType.Information)
        ServiceTimer = New System.Timers.Timer()
        ServiceTimer.Interval = 100000
        ServiceTimer.Enabled = True
        AddHandler ServiceTimer.Elapsed, AddressOf OnTimerEvent
 
        ' NotifyIcon selbst erzeugen
        TrayIcon = New NotifyIcon()
        TrayIcon.Icon = New Icon("c:\test.ico")
        TrayIcon.Text = "Klick mich!"
        TrayIcon.Visible = True
        AddHandler TrayIcon.MouseDown, AddressOf NotifyIconMouseDown
 
    End Sub
 
    Private Shared Sub NotifyIconMouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Right Then
            MsgBox("rechte Maustaste", MsgBoxStyle.SystemModal)
        ElseIf e.Button = MouseButtons.Right Then
            MsgBox("linke Maustaste", MsgBoxStyle.SystemModal)
        End If
 
    End Sub
 
    Protected Sub OnTimerEvent(ByVal source As Object, ByVal e As _
      System.Timers.ElapsedEventArgs)
 
        EventLog.WriteEntry("Eintrag des IconTray-Testdienstes.", _
          EventLogEntryType.Information)
 
    End Sub
 
    Protected Overrides Sub OnStop()
 
        EventLog.WriteEntry("Der IconTray-Testdienst wurde beendet.", _
          EventLogEntryType.Information)
        TrayIcon.Visible = False
 
    End Sub
 
End Class