Private Sub Command1_Click()
'Rimuove il form
Unload Me
End Sub
Private Sub Form_Initialize()
'Rende il form in stile Xp
InitCommonControls
End Sub
Private Sub Form_Load()
'Assegna al form un'icona
Me.Icon = LoadPicture(App.Path + "\Img\" + "Camera.ico")
'Assegna un'immagine all'Image1
Image1.Picture = LoadPicture(App.Path + "\Img\" + "Camera.gif")
'Assegna un'immagine all'Image2
Image2.Picture = LoadPicture(App.Path + "\Img\" + "Barra.gif")
End Sub
Private Sub Timer1_Timer()
If Not Text1.Top < -Text1.Height Then 'Se la Label2 non si trova del tutto oltre il bordo inferiore dell'Image2...
Text1.Top = Text1.Top - 1 'Sposta la Label2 verso l'alto
Else 'Altrimenti
Unload Me 'Rimuove il form
Timer1.Enabled = False 'Disattiva il Timer1
End If
End Sub