The following example uses the OnPaint () method of the Form1 form to draw a GDI image.
Protected Overrides Sub onpaint (ByVal e As System. Windows. Forms. PaintEventArgs)
'// Draw any line
Dim g As Graphics = e. Graphics
Dim mypen As Pen = New Pen (Color. Red, 2)
G. DrawLine (mypen, 100,100, 10, 10)
'////////// Draw a rectangle (closed image composed of any straight lines)
Dim point1 As PointF = New PointF (100F, 100F)
Dim point2 As PointF = New PointF (200F, 100F)
Dim point3 As PointF = New PointF (200F, 200F)
Dim point4 As PointF = New PointF (100F, 200F)
Dim curvepoints As PointF () = {point1, point2, point3, point4}
G. DrawPolygon (New Pen (Color. Blue, 2), curvepoints)
'// Text Representation
Dim FFamily As FontFamily = New FontFamily ("Arial ")
Dim font As Font = New Font (FFamily, "20", FontStyle. Bold, FontStyle. Italic, GraphicsUnit. Pixel)
Dim text As String = "I love you! "