Private Sub male_text(ByVal sr As String)
        Dim forma As New System.Drawing.StringFormat
        forma.Alignment = StringAlignment.Center 'dies ist einer der vielen 
        ' mislungenen Versuche, den   Text auszurichten
        Dim myBrush As New SolidBrush(Color.Purple)
        Dim si As SizeF
        Dim g As Graphics = Me.CreateGraphics
        'erster Font
        Dim f As Font = New Font("Calligraph421 BT", 20, FontStyle.Regular, _
          GraphicsUnit.Pixel)
 
        si = g.MeasureString(sr, f)
        g.Clear(Color.White)
        'Ausgabe 1
        g.DrawString(sr & CStr(childForm), f, myBrush, 100, 50 + _
          ToolStrip1.Height, forma)
        'zweiter Font
        f = New Font("Times New Roman", 11, FontStyle.Italic, _
          GraphicsUnit.Pixel)
        'Ausgabe 2
        g.DrawString("Testtext", f, myBrush, 100 + si.Width, 50 + _
          ToolStrip1.Height, forma)
        f.Dispose()
 
    End Sub

Dont debug, because there will allways be one more bug