Using Keyword:
(the following code simplifies the disposal of the 2 resources that need to be disposed asap; disposal occurs at the end using statement)

 
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
    Using myFont As New Font("Verdana", 12)
        Using myBrush As New SolidBrush(Color.FromArgb(123, 0, 123))
            e.Graphics.DrawString("Hello, World!", myFont, myBrush, 0, 0)
        End Using
    End Using
End Sub