Bilancio familiare - frmDownload.frm


	Private Sub cmdChiudi_Click() Unload Me End Sub Private Sub Form_Load() End Sub Private Sub mnuChiudi_Click() frmDownload.Hide End Sub Private Sub Timer2_Timer() Static Stat As Boolean If Stat = False Then Image1.Picture = LoadPicture(App.Path & "/1.bmp") Stat = True Exit Sub ElseIf Stat = True Then Image1.Picture = LoadPicture(App.Path & "/2.bmp") Stat = False Exit Sub End If End Sub