SysTray Icon Problems

I found some code on the Inet & im trying to implement it in my app but having Variable Not Defined error. What is highlighted is the " Result = " Im sure this is an easy fix I just cant think of what else it could be.

Public Function ShowProgramInTray()
INTRAY = True  
   
    NI.cbSize = Len(NI)
    NI.hwnd = TrayIcon.hwnd
    NI.uID = 0
    NI.uID = NI.uID + 1
    NI.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
    NI.uCallbackMessage = WM_MOUSEMOVE
    NI.hIcon = TrayIcon.Picture

    NI.szTip = "Desktop Manager" + Chr$(0)
    Result = Shell_NotifyIconA(NIM_ADD, NI)
End Function