Private Sub pisz(ByVal tekst As String, ByVal x As Integer, ByVal y As Integer,
                     e As PaintEventArgs)
        Dim normalna As New System.Drawing.Font("Arial", 12)
        Dim i As Integer = 0
        For Each litera As Char In tekst
            e.Graphics.DrawString(litera, normalna, Brushes.Black, _
            x, y)
            x += 19
            If i Mod 10 = 0 Then
                x += 1
            End If
            i += 1
        Next
    End Sub


    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawImage(Image.FromFile("c:\users\janek\documents\visual studio 2012\Projects\druk_wplaty\druk_wplaty\przelew1.gif"), 0, 0)
        Dim naglowek As New System.Drawing.Font("Arial", 6)
        Dim normalna As New System.Drawing.Font("Arial", 12)
        ' Display the text with the DrawString method.
        e.Graphics.DrawString("nazwa odbiorcy", naglowek, Brushes.Red, _
            50, 3)
        e.Graphics.DrawString("nazwa odbiorcy cd.", naglowek, Brushes.Red, _
            50, 36)
        e.Graphics.DrawString("nr rachunku odbiorcy", naglowek, Brushes.Red, _
            50, 71)
        e.Graphics.DrawString("kwota słownie", naglowek, Brushes.Red, _
            57, 134)
        e.Graphics.DrawString("nazwa zleceniodawcy", naglowek, Brushes.Red, _
            57, 162)
        e.Graphics.DrawString("nazwa zleceniodawcy cd.", naglowek, Brushes.Red, _
            57, 194)
        e.Graphics.DrawString("tytułem", naglowek, Brushes.Red, _
            57, 225)
        e.Graphics.DrawString("tytułem cd.", naglowek, Brushes.Red, _
            57, 256)

        pisz("nazwa odbiorcy", 47, 15, e)
        pisz("nazwa odbiorcy cd.", 47, 48, e)
        pisz("nr rachunku odbiorcy", 48, 82, e)
        e.Graphics.DrawString("kwota słownie", normalna, Brushes.Black, _
            47, 141)
        pisz("nazwa zleceniodawcy", 47, 172, e)
        pisz("nazwa zleceniodawcy cd.dfgh", 47, 204, e)
        pisz("tytułem", 47, 235, e)
        pisz("tytułem cd.", 47, 266, e)

        pisz("PLN", 257, 112, e)
        pisz("12312412", 335, 112, e)

        e.Graphics.TranslateTransform(0, 394)

        e.Graphics.DrawImage(Image.FromFile("c:\users\janek\documents\visual studio 2012\Projects\druk_wplaty\druk_wplaty\przelew1.gif"), 0, 0)

        ' Display the text with the DrawString method.
        e.Graphics.DrawString("nazwa odbiorcy", naglowek, Brushes.Red, _
            50, 3)
        e.Graphics.DrawString("nazwa odbiorcy cd.", naglowek, Brushes.Red, _
            50, 36)
        e.Graphics.DrawString("nr rachunku odbiorcy", naglowek, Brushes.Red, _
            50, 71)
        e.Graphics.DrawString("kwota słownie", naglowek, Brushes.Red, _
            57, 134)
        e.Graphics.DrawString("nazwa zleceniodawcy", naglowek, Brushes.Red, _
            57, 162)
        e.Graphics.DrawString("nazwa zleceniodawcy cd.", naglowek, Brushes.Red, _
            57, 194)
        e.Graphics.DrawString("tytułem", naglowek, Brushes.Red, _
            57, 225)
        e.Graphics.DrawString("tytułem cd.", naglowek, Brushes.Red, _
            57, 256)

        pisz("nazwa odbiorcy", 47, 15, e)
        pisz("nazwa odbiorcy cd.", 47, 48, e)
        pisz("nr rachunku odbiorcy", 48, 82, e)
        e.Graphics.DrawString("kwota słownie", normalna, Brushes.Black, _
            47, 141)
        pisz("nazwa zleceniodawcy", 47, 172, e)
        pisz("nazwa zleceniodawcy cd.dfgh", 47, 204, e)
        pisz("tytułem", 47, 235, e)
        pisz("tytułem cd.", 47, 266, e)

        pisz("PLN", 257, 112, e)
        pisz("12312412", 335, 112, e)

        e.Graphics.ResetTransform()
    End Sub