Dim i As Integer
Private Sub Form_DblClick()
Unload Me
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
Unload Me
End If
End Sub
Private Sub Form_Load()
i = -1
Image1.Height = frmslide.Height
Image1.Width = frmslide.Width
If frmset.tempo(1).Value = True Then
Timer1.Interval = 1000
ElseIf frmset.tempo(2).Value = True Then
Timer1.Interval = 3000
ElseIf frmset.tempo(3).Value = True Then
Timer1.Interval = 5000
End If
End Sub
Private Sub Form_Resize()
Image1.Height = frmslide.Height
Image1.Width = frmslide.Width
End Sub
Private Sub Image1_DblClick()
Unload Me
End Sub
Private Sub Timer1_Timer()
If i < Form1.List1.ListCount - 1 Then
i = i + 1
Image1.Picture = LoadPicture(Form1.cartelle.Path & "\" & Form1.List1.List(i))
Else
i = -1
End If
End Sub