[Visual Basic 6] Minimalizovanie programu???

http://rapidshare.com/files/336856672/Nodifi_icon.rar.html

http://www.marian.szm.com/Reuoplad.html

Dim nid As NOTIFYICONDATA ' trayicon variable

Option Explicit

Public Type NOTIFYICONDATA
 cbSize As Long
 hwnd As Long
 uId As Long
 uFlags As Long
 uCallBackMessage As Long
 hIcon As Long
 szTip As String * 64
 End Type
 Public Const NIM_ADD = &H0
 Public Const NIM_MODIFY = &H1
 Public Const NIM_DELETE = &H2
 Public Const WM_MOUSEMOVE = &H200
 Public Const NIF_MESSAGE = &H1
 Public Const NIF_ICON = &H2
 Public Const NIF_TIP = &H4
 Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
 Public Const WM_LBUTTONDOWN = &H201 'Button down
 Public Const WM_LBUTTONUP = &H202 'Button up
 Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
 Public Const WM_RBUTTONDOWN = &H204 'Button down
 Public Const WM_RBUTTONUP = &H205 'Button up

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Private Sub Command1_Click()
minimize_to_tray
End Sub

Sub minimize_to_tray()
Me.Hide
nid.cbSize = Len(nid)
nid.hwnd = Me.hwnd
nid.uId = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Me.Icon ' the icon will be your Form1 project icon
nid.szTip = App.Comments & "Daľšie textové informácie:" & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Me.WindowState = vbNormal
Me.Show ' show form
Shell_NotifyIcon NIM_DELETE, nid ' del tray icon
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK
Case WM_RBUTTONDOWN
Case WM_RBUTTONUP
Case WM_RBUTTONUP
Case WM_RBUTTONDBLCLK
End Select
End Sub