'ESTO LA VERDAD NO SE que HACE PERO PONGANLO HAHA.
Private Sub Imagen_Change()
Iconito "CyberControl", Imagen
FrmInicio.Hide
End Sub
Iconito es una funcion q esta en el modulo q lo q hace es poner el icono en la barra de tareas. Tiene dos parametros, el primero nos pone un mensaje al situar el puntero sobre el icono y el segundo es para saber la imagen a poner en la barra.
FrmInicio.Hide esto oculta el form (logico xDD)
' 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 'Si hacemos click izquierdo...
FrmInicio.Show 'Hace el form visible
BorrarIconito 'Borra el icono de la barra
ElseIf msg = WM_RBUTTONUP Then 'Si hacemos click derecho...
FrmInicio.Show 'Hace el form visible.Puedes sustituir esto por cualkier otra cosa, como lanzar un menu por ej :P
BorrarIconito 'Borra el icono de la barra
End If
End Sub
Creo q con los comentarios q e hecho lo entenderas
Lo del modulo mirate la Api guide
1S4ludo