اقصد ازرار الحفظ والتعديل والحذف والانهاء ....مجرد ممازحة للمستخدم
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