من يکبار کارهايي را که انجام دادم بازگو مي کنم به من بگو مشکل از کجاست
1) از کدهاي بالا کپي گرفته و در يک ماجول pase کردم
2) بر روي تنها فورمم (Form1) يک Command موقت ساختم ، و بر روي رويداد Click آن کدهاي زير را نوشتم
Dim A
Dim s As Long
A = TrayAdd (s, Form1.Icon, Hello, LeftUp)
3) با اجرا شدن برنامه و کليک بر روي Command پيغام خطاي زير داده مي شود و به TrayAdd گير مي دهد
Expected Function or variable