Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        'irgend einen text zeichnen und ausgeben
        Dim b As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
        Using g As Graphics = Graphics.FromImage(b)
            g.DrawString("Mein Text", New Font("Arial", 12, FontStyle.Regular, _
              GraphicsUnit.Pixel), Brushes.Black, 0, 10)
        End Using
        Me.PictureBox1.Image = b
 
        'den text von oben - dehnen (hier in der höhe) und ausgeben
        Dim b1 As New Bitmap(Me.PictureBox2.Width, Me.PictureBox2.Height)
        Using g1 As Graphics = Graphics.FromImage(b1)
            g1.DrawImage(b, New Rectangle(0, 0, Me.PictureBox1.Width, _
              Me.PictureBox2.Height), New Rectangle(0, 0, Me.PictureBox1.Width, _
              Me.PictureBox1.Height), GraphicsUnit.Pixel)
        End Using
        Me.PictureBox2.Image = b1
    End Sub
End Class