اين المبرمج المتميز الذي يساعدني

سوف اعطيك طريقة كنت استخدمها في الـ VB6 :o ولست اذكرها جيدا ولكن اتمني ان تكون بدون اخطاء :s

private sub From_load()
       dim i as integer,j as integer
       for i=20 to 200
              frm1.width=i
       next i

       for j=20 to 200
              frm1.hieght=j
       next i

end sub

إن شاء الله تفيدك الفكره B)

الكود لا ينفذ

ارجو المساعــدة

السلام عليكم ورحمة الله وبركاته

ضع أداة مؤقت Timer واجعل قيمة Interval يساوي 100 وأضف لها الكود التالي

If Form1.Width < 5000 Then
Form1.Width = Form1.Width + 100
Else
If Form1.Height < 5000 Then
Form1.Height = Form1.Height + 100
End If
End If

مشكور على هذا الكود