' 导入命名空间
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