Public Sub senk_Linie_Zeichnen(Start As Punkte, Länge As Long, Name As String, _
  Farbe As Long, strich As Integer)
With frmTest
     .Controls.Add "VB.line", Name, .picKreuz
     With .Controls(Name)
          .X1 = Start.X
          .Y1 = Start.Y
          .X2 = Start.X
          .Y2 = Start.Y + Länge
          .BorderColor = Farbe
          .BorderWidth = strich
          .Visible = True
     End With
End With
End Sub