Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        Dim index As Integer
        Dim PDM As New ContextMenu()
 
        Dim Items() As String = {"Test1", "Test2", "Test4", "Test5"}
        Dim text As String
 
        For Each text In Items
            Dim m As New MenuItem()
 
            m.Text = text
            m.OwnerDraw = True
 
            PDM.MenuItems.Add(m)
 
            AddHandler m.DrawItem, AddressOf Me.MenuItem_DrawItem
            AddHandler m.MeasureItem, AddressOf Me.MenuItem_MeasureItem
            AddHandler m.Click, AddressOf Me.MenuItem_Click
        Next
 
        Me.pdMenu = PDM
    End Sub
 
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Click
        Me.Hide()
    End Sub
 
 
 Private Sub NotifyIcon1_MouseDown(ByVal sender As System.Object, ByVal e As _
   System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDown
        If e.Button = MouseButtons.Right Then
		pdMenu.Show(Me, New Point(Cursor.Position.X, Cursor.Position.Y))
        End If
    End Sub