If you truly need the menu but don't want the SIP then you have to put do the following:
Put this in the Form_Activated Sub
Dim hWnd As IntPtr = FindWindow(Nothing, "MS_SIPBUTTON")
SetWindowPos(hWnd, SetWindowPosZOrder.HWND_BOTTOM, 0, 0, 0, 0, SetWindowPosFlags.SWP_HIDEWINDOW)
You will need to declare the functions FindWindow and SetWindowPos functions along with the SetWindowPosZOrder and SetWindowPosFlags in a module:
<System.Runtime.InteropServices.DllImport("coredll.dll", EntryPoint:="FindWindow")> _
Public Declare Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
End Function
<System.Runtime.InteropServices.DllImport("coredll.dll", EntryPoint:="SetWindowPos")> _
Public Declare Function SetWindowPos Lib "Coredll.dll" (ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As UInteger) As Boolean
End Function
Public Enum SetWindowPosFlag As Integer
SWP_NOSIZE = &H1
SWP_NOMOVE = &H2
SWP_NOZORDER = &H4
SWP_NOREDRAW = &H8
SWP_NOACTIVATE = &H10
SWP_FRAMECHANGED = &H20
SWP_SHOWWINDOW = &H40
SWP_HIDEWINDOW = &H80
SWP_NOCOPYBITS = &H100
SWP_NOOWNERZORDER = &H200
SWP_NOSENDCHANGING = &H400
SWP_DRAWFRAME = SWP_FRAMECHANGED
SWP_NOREPOSITION = SWP_NOOWNERZORDER
SWP_DEFERERASE = &H2000
SWP_ASYNCWINDOWPOS = &H4000
End Enum
Public Enum SetWindowPosZOrder As Integer
HWND_TOP = 0
HWND_BOTTOM = 1
HWND_TOPMOST = -1
HWND_NOTOPMOST = -2
HWND_MESSAGE = -3
End Enum
That should help out, let me know if you have any problems.