[Resolvido] funções mouse

[Erich VB 0]

Estou desenvolvendo um programa onde clico em uma imagem e ela deve manter uma determinada função em quando o botão do mouse estiver clicado nela. Quando eu soltar o botão do mouse a imagem teve voltar para o normal.

Como eu posso fazer isto?

Dês de já obrigado.

[Erich VB 0]

Encontrei o que queria e estou postando aqui.

General
Dim Mouseacima As Integer

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Mouseacima = "1"
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Mouseacima = "1" Then
 Image1.Top = Image1.Top + Y - 150
  If Image1.Top >= 2500 Then
	Image1.Top = 2499
  End If
  If Image1.Top <= 299 Then
	Image1.Top = 300
  End If
End If

End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Mouseacima = "0"
End Sub

[Erich VB 0]

E tbm Botão esquerdo e direito do mouse.

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
List1.Visible = True
List1.Top = StatusBar1.Panels(1).Text
List1.Left = StatusBar1.Panels(2).Text
End If
If Button = 1 Then
List1.Visible = False
End If

End Sub

Se houver mais alguém que queira postar algo fique à-vontade.