18-08-14, 08:05 AM
السلام عليكم
- تحياتي .
كود :
Private Sub Timer1_Timer()
IF Val(Trim$(Text1.Text)) > 0 Then
Text1.Text = Val(Trim$(Text1.Text)) - 1
Else
Timer1.Enabled = False
Exit Sub
End IF
End Sub- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next