'Beispiel: VB .Net - Festplatte - Lese- und Schreibvorgaenge grafisch im SysTray anzeigen. ' Option Explicit On Option Strict On Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.NotifyIcon1.Icon = My.Resources.idle Me.NotifyIcon1.Text = "Rechtsklick zum beenden" With Me .Text = "" .WindowState = FormWindowState.Minimized .ShowInTaskbar = False With Me.Timer1 .Interval = 100 .Enabled = True End With End With End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim Value As Integer = 0 If (PerformanceCounter1.NextValue > 0) Then Value += 1 End If If (PerformanceCounter2.NextValue > 0) Then Value += 2 End If Select Case Value Case 0 'Keine Aktivitaet NotifyIcon1.Icon = My.Resources.idle NotifyIcon1.Text = "No activity" Case 1 'Erster PerformanceCounter 'Lesen NotifyIcon1.Icon = My.Resources.read NotifyIcon1.Text = "Read" Case 2 'Zweiter PerformanceCounter 'Schreiben NotifyIcon1.Icon = My.Resources.write NotifyIcon1.Text = "Write" Case 3 'Beides - Lesen und schreiben addiert 1 + 2 zur Summe von 3 'Lesen und schreiben NotifyIcon1.Icon = My.Resources.other NotifyIcon1.Text = "Read and write" End Select End Sub Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles NotifyIcon1.MouseClick If e.Button = Windows.Forms.MouseButtons.Right Then NotifyIcon1.Visible = False Application.Exit() End If End Sub End Class