sinpre1

Private Sub CommandButton1_Click()
MsgBox "effetto della attivazione"
End Sub

Private Sub CommandButton2_Click()
CommandButton2.Picture = LoadPicture("c:/documenti/animagif/gatto.gif")
End Sub

Private Sub UserForm_Click()

End Sub

ritorna