[سعود]

[TABLE="class: grid, width: 500, align: center"]
[TR]
[TD="align: center"]توليد مكان عشوائي لمكان اداة ما ولتكن زر امر[/TD]
[/TR]
[TR]
[TD="align: center"]ضمن التصريحات العامة اكتب

كود :

Dim a, s As Integer

وضمن حدث MouseEnter لزر الامر اكتب

كود :

a = Int(Rnd() * 500)
        s = Int(Rnd() * 500)
        Button1.Location = New Point(a, s)

حاول تنقر الزر! ماتقدر
بس هذي مقبلات للافطار[/TD]
[/TR]
[/TABLE]

[tariq2812]

طيب لو نقلت التركيز الى الزر بالمفتاح tab وظغطت زر المسطرة ينفذ الامر داخل حدث Click