Source Code Program adalah :
Public Class Class1
Inherits System.Windows.Forms.Form
Protected Overrides Sub OnPaint(ByVal paintEvent As PaintEventArgs)
Dim g As Graphics = paintEvent.Graphics
g.DrawRectangle(Pens.Aqua
, 100, 100, 150, 150)
g.FillRectangle(Brushes.MediumTurquoise
, 110, 110, 130, 130)
g.DrawLine(Pens.GreenYellow
, 175, 250, 500, 600)
g.DrawRectangle(Pens.CornflowerBlue
, 700, 100, 150, 150)
g.FillRectangle(Brushes.PaleGreen
, 710, 110, 130, 130)
g.DrawLine(Pens.Peru, 775, 250, 500, 600)
g.DrawRectangle(Pens.Silver
, 400, 200, 150, 150)
g.FillRectangle(Brushes.Thistle, 410, 210, 130, 130)
g.DrawLine(Pens.Red, 475, 350, 500, 600)
g.DrawLine(Pens.DarkOrange
, 500, 600, 500, 800)
End Sub
Private Sub InitializeComponent()
Me.SuspendLayout()
‘
‘Class1
‘
Me.BackColor = System.Drawing.SystemColors.ActiveCaption
Me.BackgroundImage = Image
.TubesNet.My.Resources.Resources.DSC00136()
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Name = “Class1”
Me.ResumeLayout(False)
End Sub
End Class
