Public Class Form1
Private Sub Form1_Paint(ByVal sendaer As System.Object, ByVal pe As PaintEventArgs) Handles MyBase.Paint
Dim mybrush3 As New Drawing2D.HatchBrush(Drawing.Drawing2D.HatchStyle.Trellis, Color.Red, Color.Yellow)
Dim mybrush As New Drawing2D.LinearGradientBrush(ClientRectangle, Color.Red, Color.Yellow, Drawing2D.LinearGradientMode.Horizontal)
Dim mybrush2 As New Drawing2D.LinearGradientBrush(ClientRectangle, Color.Red, Color.Green, Drawing2D.LinearGradientMode.Horizontal)
Dim myhatch As New Drawing2D.HatchBrush(Drawing.Drawing2D.HatchStyle.HorizontalBrick, Color.Red, Color.Yellow)
Dim g As Graphics = pe.Graphics
Dim f1 As New Font(“Arial”, 24, FontStyle.Italic)
Dim f2 As New Font(“Arial”, 24, FontStyle.Underline)
Dim mycat As New SolidBrush(Color.Blue)
Dim cat As Pen = New Pen(mybrush3, 15)
g.DrawString(“VB NET”, f2, mybrush, 90, 10)
g.DrawString(“SMP DON BOSCO 2”, f1, mycat, 25, 100)
g.FillEllipse(mybrush, 147, 24, 13, 13)
g.DrawString(“PANCADHARMA”, f1, myhatch, 65, 185)
g.DrawString(“Don’t Forget To Read”, f1, mybrush2, 10, 270)
g.DrawRectangle(cat, 0, 0, 340, 315)
End Sub
End Class