Mega Code Archive

 

Categories / VB.Net by API / System Drawing

 

Graphics Clear(Color c)

Imports System Imports System.Windows.Forms Imports System.Drawing Public Class MainClass   Shared Sub Main()      Dim form1 As Form1 = new Form1      Application.Run(form1)   End Sub    End Class Public Class Form1     Inherits System.Windows.Forms.Form     Public Sub New()         MyBase.New()         Me.ClientSize = New System.Drawing.Size(292, 273)     End Sub   Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)     Dim G As Graphics = e.Graphics     G.Clear(Color.BurlyWood)     Dim r As Rectangle = New Rectangle(50, 50, 100, 100)     Dim b As Brush = Brushes.Crimson     G.FillRectangle(b, r)   End Sub End Class