24-06-17, 06:01 PM
اقصد ازرار الحفظ والتعديل والحذف والانهاء ....مجرد ممازحة للمستخدم
PHP كود :
Dim b1loc As Point
Dim b2loc As Point
Dim b3loc As Point
Dim b4loc As Point
Private Function gn() As Integer
a:
If Int(Rnd() * 15) = i Then GoTo a
Randomize()
Return Int(Rnd() * 15)
End Function
Private Sub changebuttonslocation()
Select Case gn()
Case 0
i = 0
b1.Location = b1loc
b2.Location = b2loc
b3.Location = b3loc
b4.Location = b4loc
Case 1
i = 1
b1.Location = b4loc
b2.Location = b3loc
b3.Location = b2loc
b4.Location = b1loc
Case 2
i = 2
b1.Location = b1loc
b2.Location = b4loc
b3.Location = b3loc
b4.Location = b2loc
Case 3
i = 3
b1.Location = b1loc
b2.Location = b4loc
b3.Location = b2loc
b4.Location = b3loc
Case 4
i = 4
b1.Location = b2loc
b2.Location = b4loc
b3.Location = b3loc
b4.Location = b1loc
Case 5
i = 5
b1.Location = b3loc
b2.Location = b4loc
b3.Location = b1loc
b4.Location = b2loc
Case 6
i = 6
b1.Location = b1loc
b2.Location = b3loc
b3.Location = b2loc
b4.Location = b4loc
Case 7
i = 7
b1.Location = b1loc
b2.Location = b3loc
b3.Location = b4loc
b4.Location = b2loc
Case 8
i = 8
b1.Location = b3loc
b2.Location = b4loc
b3.Location = b1loc
b4.Location = b2loc
Case 9
i = 9
b1.Location = b2loc
b2.Location = b1loc
b3.Location = b3loc
b4.Location = b4loc
Case 10
i = 10
b1.Location = b2loc
b2.Location = b1loc
b3.Location = b4loc
b4.Location = b3loc
Case 11
i = 11
b1.Location = b2loc
b2.Location = b3loc
b3.Location = b1loc
b4.Location = b4loc
Case 12
i = 12
b1.Location = b2loc
b2.Location = b3loc
b3.Location = b4loc
b4.Location = b1loc
Case 13
i = 13
b1.Location = b2loc
b2.Location = b4loc
b3.Location = b1loc
b4.Location = b3loc
Case 14
i = 14
b1.Location = b2loc
b2.Location = b4loc
b3.Location = b3loc
b4.Location = b1loc
Case 15
i = 15
b1.Location = b3loc
b2.Location = b4loc
b3.Location = b1loc
b4.Location = b2loc
End Select
End Sub
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير