Brushes.Crimson : Brushes « System.Drawing « VB.Net by API

1. VB.Net by API
2. System.Drawing
3. Brushes

Brushes.Crimson

  


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

   
    
  

Related examples in the same category