Asas skillerini tek tek vurdurma kodları...

Private Sub Timer1_Timer()
On Error GoTo ListBaşı
List1.ListIndex =
List3.ListIndex + 1
Exit Sub
ListBaşı: List1.ListIndex = -1
End
Sub

Private Sub Check5_Click()
If Check5.value = 1
Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End
Sub


List1 >>> Asas Skillerinin Olduğu Liste
Timer1
>>> Herhangi Br Timer ( Bu ListeDeki Tek bir Skile Deil Aşşa İnerek
Hepsini Tek Tek vurmasını sağlıyor )

---------- Post added at 07:25 PM ---------- Previous post was at 07:24
PM ----------

pardon arkadaslar
kodları düzeltiyorum
:S
Buyrun::

Private Sub Timer1_Timer()
On Error GoTo
ListBaşı
List1.ListIndex = List1.ListIndex + 1
Exit Sub
ListBaşı:
List1.ListIndex = -1
End Sub

Private Sub Check5_Click()
If
Check5.value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled =
False
End If
End Sub


List1 >>> Asas Skillerinin Olduğu
Liste
Timer1 >>> Herhangi Br Timer ( Bu ListeDeki Tek bir Skile Deil
Aşşa İnerek Hepsini Tek Tek vurmasını sağlıyor )