Help me please :((

Option Explicit

Private Sub Command1_Click()
'    SendMessage frmSysTrayIcon.hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0
    note.cbSize = Len(note)
    note.hwnd = frmSysTrayIcon.hwnd
    note.uID = IDI_TRAY
    note.uFlags = NIF_ICON + NIF_MESSAGE + NIF_TIP
    note.uCallbackMessage = WM_SHELLNOTIFY
    note.hIcon = LoadIcon(ByVal 0&, IDI_WINLOGO)
    note.szTip = "Test Form" & Chr$(0)
    Shell_NotifyIcon NIM_ADD, note
    frmSysTrayIcon.Hide
End Sub

Private Sub Form_Load()
    hPopupMenu = CreatePopupMenu
    AppendMenu hPopupMenu, MF_STRING, IDM_RESTORE, "&Restore"
    AppendMenu hPopupMenu, MF_STRING, IDM_EXIT, "E&xit Program"
    OldWndProc = SetWindowLong(frmSysTrayIcon.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Option Explicit

Public Const GWL_WNDPROC = (-4)
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MINIMIZE = &HF020&
Public Const SC_RESTORE = &HF120&
Public Const SC_CLOSE = &HF060&
Public Const IDI_TRAY = 0
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_USER = &H400
Public Const WM_SHELLNOTIFY = WM_USER + 5
Public Const IDI_WINLOGO = 32517
Public Const WM_COMMAND = &H111
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_LBUTTONDBLCLK = &H203
Public Const IDM_RESTORE = 1000
Public Const IDM_EXIT = 1010
Public Const MF_STRING = &H0&
Public Const TPM_RIGHTALIGN = &H8&
Public Const TPM_RIGHTBUTTON = &H2&

Public Type NOTIFYICONDATA
        cbSize As Long
        hwnd As Long
        uID As Long
        uFlags As Long
        uCallbackMessage As Long
        hIcon As Long
        szTip As String * 64
End Type

Public Type POINTAPI
    x As Long
    y As Long
End Type

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
    (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function LoadIcon Lib "user32" Alias "LoadIconA" _
    (ByVal hInstance As Long, ByVal lpIconName As Long) As Long

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" _
    (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Public Declare Function CreatePopupMenu Lib "user32" () As Long

Public Declare Function TrackPopupMenu Lib "user32" _
    (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As Long

Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" _
    (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long

Public Declare Function DestroyMenu Lib "user32" _
    (ByVal hMenu As Long) As Long

Public Declare Function GetCursorPos Lib "user32" _
    (lpPoint As POINTAPI) As Long

Public Declare Function SetForegroundWindow Lib "user32" _
    (ByVal hwnd As Long) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

Public hPopupMenu As Long
Public OldWndProc As Long

Public note As NOTIFYICONDATA
Dim pt As POINTAPI

Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If uMsg = WM_SYSCOMMAND Then
        If wParam = SC_MINIMIZE Then
            note.cbSize = Len(note)
            note.hwnd = frmSysTrayIcon.hwnd
            note.uID = IDI_TRAY
            note.uFlags = NIF_ICON + NIF_MESSAGE + NIF_TIP
            note.uCallbackMessage = WM_SHELLNOTIFY
            note.hIcon = LoadIcon(ByVal 0&, IDI_WINLOGO)
            note.szTip = "Test Form" & Chr$(0)
            Shell_NotifyIcon NIM_ADD, note
            frmSysTrayIcon.Hide
        ElseIf wParam = SC_CLOSE Then
            If MsgBox("Close form?", vbYesNo Or vbQuestion) = vbYes Then
                Unload frmSysTrayIcon
                DestroyMenu hPopupMenu
            End If
        Else
            WindowProc = CallWindowProc(OldWndProc, hwnd, uMsg, wParam, lParam)
        End If
    ElseIf uMsg = WM_COMMAND Then
        If lParam = 0 Then
            If wParam = IDM_RESTORE Then
                frmSysTrayIcon.Show
            ElseIf wParam = IDM_EXIT Then
                Unload frmSysTrayIcon
                DestroyMenu hPopupMenu
            End If
            Shell_NotifyIcon NIM_DELETE, note
        End If
        WindowProc = CallWindowProc(OldWndProc, hwnd, uMsg, wParam, lParam)
    ElseIf uMsg = WM_SHELLNOTIFY Then
        If wParam = IDI_TRAY Then
            If lParam = WM_RBUTTONDOWN Then
                GetCursorPos pt
                SetForegroundWindow hwnd
                TrackPopupMenu hPopupMenu, TPM_RIGHTALIGN + TPM_RIGHTBUTTON, _
                                    pt.x, pt.y, 0, hwnd, ByVal 0&
            ElseIf lParam = WM_LBUTTONDBLCLK Then
                frmSysTrayIcon.Show
                Shell_NotifyIcon NIM_DELETE, note
            End If
        End If
    Else
        WindowProc = CallWindowProc(OldWndProc, hwnd, uMsg, wParam, lParam)
    End If
End Function