（高手入）求将程序最小化为一个图标放在系统托盘

Question

Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long 
找到这个API有达人指点了这些话给我，但是我不是很明白，请有了解的人指点我一下，学vb 新人，求解

Answer 1

Option Explicit
Private Declare Function sendmessage Lib "user32" Alias "sendmessageA" (ByVal hwnd As Long, ByVal wmsg As Long, ByVal wparam As Long, iparam As Any) As LongPrivate Const wm_syscommand = &H112
Private Const sc_move = &HF010&
Private Const sc_restore = &HF120&
Private Const sc_size = &HF000&Private Sub form_load()
If WindowState = vbMinimized Then
LastState = vbNormal
Else
LastState = WindowState
End If
addtotray Me, mnutray
End SubPrivate Sub form_resizie()
Select Case WindowState
Case vbmininized
mnutraymaximize.Enabled = True
mnutrayminimize.Enabled = False
mnutrayrestore.Enabled = True
mnutraysize.Enabled = False
mnutraymove.Enabled = FalseCase vbMaximized
mnutraymaximize.Enabled = False
mnutrayminimize.Enabled = True
mnutrayrestore.Enabled = True
mnutraysize.Enabled = False
mnutraymove.Enabled = FalseCase vbNormal
mnutraymaximize.Enabled = True
mnutrayminimize.Enabled = True
mnutrayrestore.Enabled = False
mnutraysize.Enabled = True
mnutraymove.Enabled = True
End Select
If WindowState <> vbMinimized Then LastState = WindowState
End SubPrivate Sub form_unload(cancel As Integer)
removefromtray
End SubPrivate Sub mnufileexit_click()
Unload Me
End SubPrivate Sub mnutrayclose_click()
Unload Me
End SubPrivate Sub mnutraymaximize_click()
WindowState = vbMaximized
End SubPrivate Sub mnutrayminimize_click()
WindowState = vbMinimized
End SubPrivate Sub mnutraymove_click()
sendmessage hwnd, wm_syscommadn, sc_move, 0&
End SubPrivate Sub mnutrayrestore_cilck()
sendmessage hwnd, wm_syscommand, sc_restore, 0&
End SubPrivate Sub mnutraysize_click()
sendmessage hwnd, wm_syscommand, sc_size, 0&
End Sub
最后提示说
Private Sub form_load()
If WindowState = vbMinimized Then
LastState = vbNormal
Else
LastState = WindowState
End If
addtotray Me, mnutray
End Sub变量未定义，这是怎么回事？

Answer 2

[email protected],给我一个，我看看，谢谢前辈

Answer 3

你在form开始
dim LastState  as integer试试看

Answer 4

KAO!
来自 英格兰/伯明翰 ，晕 ...............

Answer 5

http://www.m5home.com/blog2/blogview.asp?logID=217&cateID=2托盘图标类,外加气泡提示