Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim gra As Graphics = e.Graphics
        Dim X As Integer = 400
        Dim Str1 As String = "Wert 1:"
        Dim Str2 As String = "Als nächstes folgt der zweite Wert:"
        Dim oFont As Font = New Font("Times New Roman", 15)
        Dim iTxtW As Integer
 
        gra.DrawLine(Pens.Black, X, 0, X, 100)
 
        iTxtW = CInt(gra.MeasureString(Str1, oFont, 0, _
          StringFormat.GenericTypographic).Width)
        gra.DrawString(Str1, oFont, Brushes.Black, X - iTxtW, 10)
 
        iTxtW = CInt(gra.MeasureString(Str2, oFont, 0, _
          StringFormat.GenericTypographic).Width)
        gra.DrawString(Str2, oFont, Brushes.Black, X - iTxtW, 30)
    End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.