program bunga kotak


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

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s