13-12-18, 03:35 AM
أهلا بك أخي الكريم , عذراً على التاخير بالرد وذلك بسبب الإنشغال , هذا الكود بعد التعديل :
PHP كود :
Dim msgresponse
If frm1_On Then
msgresponse = MsgBox("للمتابعة و فتح Frm2 ينبغي إغلاق Frm1 ؛ الإغلاق الآن ؟", vbYesNo, "تنبيه")
If msgresponse = vbYes Then
Unload frm1
frm1_On = False
frm2_On = True
Else
Unload frm2
frm2_On = False
Exit Sub
End If
End If
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
