wael abed
25-Jan-2012, 08:57 AM
سلام عليكم ورحمة الله وبركاته
اخوانى وانا جى هنا على الصبح قولت هاجى المنتدى وايديه فاضيه قمة مادد ايديه وجبتلكم كود بس يارب يارب مع الكود
مكان الكود فى حدث unload_form
WindowState = 2
DrawWidth = 4 '
For i = 1 To 25000
Down = Down + 1 '
Across = Across + 1
PSet (Rnd * Across, Rnd * Down), QBColor(Rnd * 15)
Next i
اخوانى وانا جى هنا على الصبح قولت هاجى المنتدى وايديه فاضيه قمة مادد ايديه وجبتلكم كود بس يارب يارب مع الكود
مكان الكود فى حدث unload_form
WindowState = 2
DrawWidth = 4 '
For i = 1 To 25000
Down = Down + 1 '
Across = Across + 1
PSet (Rnd * Across, Rnd * Down), QBColor(Rnd * 15)
Next i