stavi na formu PictureBox (Picture1) i podesi mu Enabled na False (eventualno mozes da mu podesis Border na vbNone) i stavi neku sliku u njega, dodaj sledeci kod:
Code:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= Picture1.Left And X <= Picture1.Left + Picture1.Width And _
Y >= Picture1.Top And Y <= Picture1.Top + Picture1.Height Then
If Picture1.Tag <> "mouse in" Then
Picture1.Tag = "mouse in"
' ovde stavi sta ce da se desava kada misom predjes preko slike:
Set Picture1.Picture = LoadPicture("over.bmp")
End If
Else
If Picture1.Tag = "mouse in" Then
Picture1.Tag = ""
' a ovde stavi sta ce da se desava kada je mis izasao iz okvira slike (mouseout):
Set Picture1.Picture = LoadPicture("norm.bmp")
End If
End If
End Sub
za ovaj kod ti trebaju dve slike over.bmp i norm.bmp koje treba da se nalaze u istom folderu u kom i exe (projekat)....