Вывод текста на форму

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prnt As Graphics = Me.CreateGraphics
        Dim x As String = "127"
        Dim FN As New Font("ARIAL", 20, FontStyle.Bold)
        prnt.DrawString(x, FN, Brushes.Black, 0, 0)
    End Sub
End Class

Dim x = "127"
CreateGraphics.DrawString(x, Me.Font, Brushes.Black, 0, 0)

Me.ResizeRedraw = True

Dim txt As String = "Первая строка" & vbCrLf & "Вторая строка"

Public Class Form1
    Sub DrawText()
        Dim b(4) As Box
        b(0) = New Box()
        b(1) = New Box(3, 4, 5)
        b(2) = New Box(4.0)
        b(3) = New Box(4)
        b(4) = New Box()
        Using G = Me.CreateGraphics
            Dim FN As New Font("ARIAL", 12, FontStyle.Bold)
            For i = 0 To 4
                G.DrawString(b(i).Volume.ToString, FN, Brushes.Black, 0, i * 25)
            Next
            b(0).wid = 10
            b(0).hei = 10
            b(0).dep = 10
            G.DrawString(b(0).Volume.ToString, FN, Brushes.Black, 0, 125)
        End Using
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ResizeRedraw = True
        AddHandler Me.Paint, AddressOf DrawText
    End Sub
End Class

Public Class Form1
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Me.ResizeRedraw = True
        Dim b(4) As Box
        b(0) = New Box()
        b(1) = New Box(3, 4, 5)
        b(2) = New Box(4.0)
        b(3) = New Box(4)
        b(4) = New Box()
        Using G = Me.CreateGraphics
            Dim FN As New Font("ARIAL", 12, FontStyle.Bold)
            For i = 0 To 4
                G.DrawString(b(i).Volume.ToString, FN, Brushes.Black, 0, i * 25)
            Next
            b(0).wid = 10
            b(0).hei = 10
            b(0).dep = 10
            G.DrawString(b(0).Volume.ToString, FN, Brushes.Black, 0, 125)
        End Using
    End Sub
End Class

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ResizeRedraw = True
        Dim txt As String = "Первая строка" & vbCrLf & "Вторая строка" & vbCrLf & "Третья строка"
        Print(Me, txt)
    End Sub
End Class

Module PrintModule
    Dim t As String = ""
    Dim lf, tp As Integer
    Dim f As Form
    Private Sub PrntCheck(sender, e)
        Using G = f.CreateGraphics
            G.DrawString(t, New Font("ARIAL", 12, FontStyle.Bold), Brushes.Black, lf, tp)
        End Using
    End Sub
    Sub Print(Ctrl As Form, txt As String, Optional Left As Integer = 0, Optional Top As Integer = 0)
        AddHandler Ctrl.Paint, AddressOf PrntCheck
        f = Ctrl
        lf = Left
        tp = Top
        t = txt
    End Sub
End Module