Public Class Form1
    Private WithEvents ni As New NotifyIcon With {.Icon = Me.Icon, .Visible = _
      True}
 
    Private Sub ni_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ni.MouseMove
        Try
            MsgBox("brrr")
        Catch ex As Exception
            Debug.Print(ex.ToString)
        End Try
    End Sub
End Class