트레이드 숨기기질문

Private Sub Command1_Click()
Dim NID As NOTIFYICONDATA
NID.cbSize = Len(NID)
NID.hwnd = Me.hwn= Me.hwnd
NID.hIcon = Me.Icon.Handle
NID.szTip = 숨기기 메뉴소스 & vbNullChar
NID.uCallBackMessage = WM_MOUSEMOVE
NID.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
NID.uId = 100
Shell_NotifyIcon NIM_ADD, NID
Me.Hide
런타임뜨느데 어떻게 수정해야되죠