Событие ContextMenuStrip для формы

Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
 
Public Function pvButton() As MouseButtonConstants
    Select Case True
        Case GetAsyncKeyState(vbKeyLButton) < 0
            pvButton = vbLeftButton
        Case GetAsyncKeyState(vbKeyRButton) < 0
            pvButton = vbRightButton
        Case GetAsyncKeyState(vbKeyMButton) < 0
            pvButton = vbMiddleButton
    End Select
End Function

Imports System.Runtime.InteropServices
Public Class Form5
    Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Int32
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure POINTAPI
        Public x As Int32
        Public y As Int32
    End Structure
    Private msPoint As New POINTAPI
    Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 200
        Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        GetCursorPos(msPoint)
        If msPoint.x < Me.Left OrElse msPoint.x > Me.Right OrElse msPoint.y < Me.Top OrElse msPoint.y > Me.Bottom Then
            Me.Hide()
        Else
            Me.Show()
        End If
    End Sub
End Class