' Simple Hello Mum WinForm Application using a paint event
' Downloaded from www.publicjoe.co.uk
'
' This software is provided 'as-is', without any express or implied warranty.
' In no event will the author(s) be held liable for any damages arising from
' the use of this software.
' 
' Permission is granted to anyone to use this software for any purpose,
' including commercial applications, and to alter it and redistribute it
' freely.

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class HelloPaint
  Inherits Form

  'Run the application
  <STAThread()> Public Shared Sub Main()
    Application.Run(New HelloPaint( ))
  End Sub

  Public Sub New()
    MyBase.New()
    Me.Text = "Windows Forms Demo"
    Me.ClientSize = New Size(300, 200)
  End Sub

  Private Sub HelloPaint_Paint( ByVal sender As Object, _
                                ByVal e As PaintEventArgs) _
    Handles MyBase.Paint

    ' Get Graphics Object
    Dim g As Graphics = e.Graphics

    ' Create Font
    Dim myFont As New Font( "Verdana", 20 )

    ' Create Brush
    Dim myBrush As New SolidBrush( Color.Tomato )

    ' Draw the String
    g.DrawString("Hello Mum!", myFont, myBrush, 40, 40)

    ' Now tidy up
    myFont.Dispose
    myBrush.Dispose
  End Sub
End Class