Mega Code Archive

 

Categories / VB.Net by API / System Drawing

 

Brushes Blue

Imports System.Math Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Public Class MainClass    Shared Sub Main()        Dim form1 As Form = New Form1()        Application.Run(form1)    End Sub  End Class   Public Class Form1     Inherits System.Windows.Forms.Form     Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint         Dim blue_brush As Brush = Brushes.Blue         e.Graphics.FillRectangle(blue_brush, 10, 120, 200, 100)     End Sub End Class