Como minimizarlo a la barra de tareas?

[BorecK]

Hola de nuevo alguien se sabe el codigo para que haga la funcion del p2p ares galaxy cuando lo cierras? ven que le das en la X y se minimiza a la barra de tareas? eso quiero hacer con mi programa me podrian pasar el codigo porfavor? 

[CODIGO PARA MINIMIZAR A LA BARRA DE TAREAS)

Código [Seleccionar] Expandir

'CON ESTO HAGO QUE LA [X] SE ANULE Y HAGA UNA LLAMADA A IMAGEN_CHANGE.
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Imagen_Change

DESPUES SE CREA UN PICTUREBOX EN EL FORM1 LE CAMBIAS EL VISIBLE A FALSE Y ESCOGES UNA IMAGEN QUE SEA .ICO Ó . CUR...

Código [Seleccionar] Expandir

'ESTO LA VERDAD NO SE que HACE PERO PONGANLO HAHA.
Private Sub Imagen_Change()
Iconito "CyberControl", Imagen
FrmInicio.Hide
End Sub

Código [Seleccionar] Expandir

' ESTO TAMPOCO SE QUE HACE PEROE S PARTE DEL CODIGO..
Private Sub Imagen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Integer
msg = X / Screen.TwipsPerPixelX
If msg = WM_LBUTTONDBLCLK Then
    FrmInicio.Show
    BorrarIconito
ElseIf msg = WM_RBUTTONUP Then
    FrmInicio.Show
    BorrarIconito
End If
End Sub

DESPUES EN UN MODULO EL SIGUIENTE CODIGO:

Código [Seleccionar] Expandir

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, ByRef lpData As NOTIFYICONDATA) As Long
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 'Borrar si no se quiere animar la imagen
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONUP = &H205
Dim IC As NOTIFYICONDATA

Código [Seleccionar] Expandir

Public Sub Iconito(Tip As String, Foto As PictureBox)
    IC.cbSize = Len(IC)
    IC.hwnd = Foto.hwnd
    IC.uID = 1&
    IC.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    IC.uCallbackMessage = WM_LBUTTONDOWN
    IC.hIcon = Foto.Picture
    IC.szTip = Tip & Chr(0)
    Shell_NotifyIcon NIM_ADD, IC
End Sub

Código [Seleccionar] Expandir

Public Sub BorrarIconito()
    Shell_NotifyIcon NIM_DELETE, IC
End Sub


Si alguien podria explicarme el funcionamiento del codigo me harian feliz  ... Por cierto este codigo lo puso: E0N y el que me dio el link fue Celaya asi que gracias a los dos y a losdemas que tambien ayudaron 

Aqui les dejo el link:
http://foro.elhacker.net/index.php/topic,151860.0.html

[WarGhost]

busca plis, hay mucha info

[BorecK]

hmm ok gracias por la ayuda 

[VirucKingX]

explicate un poco mas 

nunca e usado ares galaxy ^^


Bye

[Robokop]

Private Sub Form_Unload(Cancel As Integer)
Cancel = 2
Form1.WindowState = 1
End Sub

salu2

[VirucKingX]

ese es el efecto 

nu me gusto ( opinion personal )

Bye

[CeLaYa]

creo que este post resuelve tu duda

http://foro.elhacker.net/index.php/topic,151860.0.html

[BorecK]

wajajaja bueno la verdad no era lo que buscaba Robokop pero aun asi muchas gracias por el codigo nuevo que acabo de aprender  .... solo keria un codigo para establecerlo en la barra de tareas alado del reloj para que me entiendas VirukingX 

[CeLaYa]

en el link que te pase viene como hacer eso

[BorecK]

Si muchas gracias celaya  ya pude lograr que se minimize a la barra de tareas .... lo unico que me falta es entenderle al codigo por que no entiendo muchas cosas.... ya entendiendole a ver si puedo hacerle un menu que salga al darle click derecho al icono en la barra de Tareas por que ahorita lo unico que hace es que si le doy click derecho se vuelve a maximizar jejeje

(Arriba modifique el mensaje y puse el codigo que utilize  )