كود رسم المستطيل .. !

 

Imports [color= #990000;]System[color= #339933;].Drawing

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Sub Form1_Paint[color= #009900;](Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], Byval Ev [color= #b1b100;]As PaintEventArgs [color= #009900;]) Handles MyB
ase[color= #339933;].Paint

Using G [color= #b1b100;]As Graphics [color= #339933;]= Graphics[color= #339933;].FromhWnd[color= #009900;]( Handle [color= #009900;])

G[color= #339933;].SmoothingMode [color= #339933;]= SmoothingMode[color= #339933;].AntiAlias

G[color= #339933;].Clear[color= #009900;]( BackColor [color= #009900;])

Dim MyPen [color= #b1b100;]As [color= #000000; font-weight: bold;]New Pen[color= #009900;]( Color[color= #339933;].Coral[color= #339933;], [color= #cc66cc;]4 [color= #009900;])

Dim Rect [color= #b1b100;]As [color= #000000; font-weight: bold;]New Rectangle[color= #009900;]( [color= #cc66cc;]5[color= #339933;], [color= #cc66cc;]5[color= #339933;], ClientSize[color= #339933;].Width [color= #339933;]- [color= #cc66cc;]10[color= #339933;], ClientSize[color= #339933;].Height [color= #339933;]- [color= #cc66cc;]10 [color= #009900;])

G[color= #339933;].DrawRectangle[color= #009900;]( MyPen[color= #339933;], Rect [color= #009900;])

[color= #990000;]End Using

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

 

Imports [color= #990000;]System[color= #339933;].Drawing

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Sub Form1_Paint[color= #009900;](Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], Byval Ev [color= #b1b100;]As PaintEventArgs [color= #009900;]) Handles MyB
ase[color= #339933;].Paint

Using G [color= #b1b100;]As Graphics [color= #339933;]= Graphics[color= #339933;].FromhWnd[color= #009900;]( Handle [color= #009900;])

G[color= #339933;].SmoothingMode [color= #339933;]= SmoothingMode[color= #339933;].AntiAlias

G[color= #339933;].Clear[color= #009900;]( BackColor [color= #009900;])

Dim MySBrush [color= #b1b100;]As [color= #000000; font-weight: bold;]New SolidBrush[color= #009900;]( Color[color= #339933;].Coral [color= #009900;])

Dim Rect [color= #b1b100;]As [color= #000000; font-weight: bold;]New Rectangle[color= #009900;]( [color= #cc66cc;]5[color= #339933;], [color= #cc66cc;]5[color= #339933;], ClientSize[color= #339933;].Width [color= #339933;]- [color= #cc66cc;]10[color= #339933;], ClientSize[color= #339933;].Height [color= #339933;]- [color= #cc66cc;]10 [color= #009900;])

G[color= #339933;].FillRectangle[color= #009900;]( MySBrush[color= #339933;], Rect [color= #009900;])

[color= #990000;]End Using

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class