[archive] system tray

[Migrated content. Thread originally posted on 24 March 2010]

Estoy tratando de averiguar c?mo crear un System Tray usando las API de Windows y no puedo entender la l?gica en COBOL para saber c?mo hacerlo. ?Puede alguien tal vez me ayude con la conversi?n de este c?digo en Visual Basic

1. 'user defined type required by Shell_NotifyIcon API call
2. Public Type NOTIFYICONDATA
3. cbSize As Long
4. hwnd As Long
5. uId As Long
6. uFlags As Long
7. uCallBackMessage As Long
8. hIcon As Long
9. szTip As String * 64
10. End Type

1. 'constants required by Shell_NotifyIcon API call:
2. Public Const NIM_ADD = &H0
3. Public Const NIM_MODIFY = &H1
4. Public Const NIM_DELETE = &H2
5. Public Const NIF_MESSAGE = &H1
6. Public Const NIF_ICON = &H2
7. Public Const NIF_TIP = &H4
8. Public Const WM_MOUSEMOVE = &H200
9. Public Const WM_LBUTTONDOWN = &H201 'Button down
10. Public Const WM_LBUTTONUP = &H202 'Button up
11. Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
12. Public Const WM_RBUTTONDOWN = &H204 'Button down
13. Public Const WM_RBUTTONUP = &H205 'Button up
14. Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
15.
16. Public Declare Function SetForegroundWindow Lib "user32" _
17. (ByVal hwnd As Long) As Long
18. Public Declare Function Shell_NotifyIcon Lib "shell32" _
19. Alias "Shell_NotifyIconA" _
20. (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
21.
22. Public nid As NOTIFYICONDATA