Sub NotifyIcon_DoubleClick(ByVal sender As Object, ByVal e As EventArgs)
        Me.Show()
        Me.WindowState = FormWindowState.Normal
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        Dim nitest As New NotifyIcon
        AddHandler nitest.DoubleClick, AddressOf NotifyIcon_DoubleClick
        ' ......