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

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

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

   
    
  

Related examples in the same category