| Di buat oleh ariejal labraya Kategori : Source Code dim as no single Private Sub Timer3_Timer() ' On Error Resume Next Image1.Stretch = True If no <= 100 Then Image1 = LoadPicture(App.Path & "\jam\" & no & ".jpg") no = no + 1 End If Exit Sub no = 1 End Sub pertanyaan nya: kenapa tidak bisa mengulang ke foto pertama,di foto terakhir terhenti dan tidak ngulang |
Sebelum End If Msukan Kode
ReplyDeleteelse
no=1
end if
Sebelum End If Msukan Kode
ReplyDeleteelse
no=1
end if