27-11-13, 07:44 PM
السلام عليكم
- سيكون بهذا الشكل :
- تحياتي .
- سيكون بهذا الشكل :
كود :
Private Sub Timer1_Timer()
On Error Resume Next: Err.Clear
Static I As Integer
Drive1.ListIndex = I
Text1.Text = Drive1.List(I)
If I < Drive1.ListCount - 1 Then
I = I + 1
Else
I = 0
End If
End Sub- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next