منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

كاتب الموضوع : AhmedEssawy

منقول من المنتدى القديم .

كود :

Private Sub formcircle(frm As Form, Size As Integer)

For e% = Size% - 1 To 0 Step -1

frm.Left = frm.Left - e%

frm.Top = frm.Top + (Size% - e%)

Next e%

For e% = Size% - 1 To 0 Step -1

frm.Left = frm.Left + (Size% - e%)

frm.Top = frm.Top + e%

Next e%

For e% = Size% - 1 To 0 Step -1

frm.Left = frm.Left + e%

frm.Top = frm.Top - (Size% - e%)

Next e%

For e% = Size% - 1 To 0 Step -1

frm.Left = frm.Left - (Size% - e%)

frm.Top = frm.Top - e%

Next e%

End Sub

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech