Onmouse Over

[slipknot]

Ola gente como consigo fazer ....

1 tenho uma imagem que to tratando como se fosse um botaum...

2- quero q quando o mouse passar por cima dela a imagem mude....tem jeito?

vlw.....abraços....

[Graymalkin]

Coloque as seguintes declarações no General Declarations do form ou em um módulo (nesse caso troque o escopo para Public):

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

E coloque esse código no evento MouseMove da PictureBox:

If ((X < 0) Or (Y < 0) Or (X > Picture1.Width) Or (Y > Picture1.Height)) Then
        ReleaseCapture
        Picture1.Picture = LoadPicture("c:\arq\images\6.gif")
    Else
        SetCapture Picture1.hwnd
        Picture1.Picture = LoadPicture("c:\arq\images\5.gif")
    End If

ok?

Abraços,

Graymalkin

[slipknot]

vlw cara!!!