you need to try:
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer,
ByVal bRevert As Boolean) As Integer
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA"
(ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As
Integer, ByVal lpNewItem As String) As Integer
Dim hSysMenu As Integer
hSysMenu = GetSystemMenu(Me.Handle.ToInt32, False)
AppendMenu(hSysMenu, 0, 1000, "Tray Me")