Ciao, c'è qualcosa che non va nel codice...

Originariamente inviato da altrencatè

vchiudi2 = App.Path & "image1.gif"
Private Sub Chiudi_Onmouseover()
image1.Picture = LoadPicture(vChiudi2)
End Sub
codice:
vchiudi2 = App.Path & "\image1.gif"
"Chiudi" che oggetto è??
in vb6 mi sembra che non c'è l'evento "OnMouseOver", ma "MouseMove"
pertanto, a meno che non usi un controllo personalizzato, il tuo codice dovrebbe essere cosi:

codice:
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Image1.Picture = LoadPicture(vchiudi2)
End Sub