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

Option Explicit
 
Private TestButton As Object
 
Private Sub Form_Load()
 
   TestButtonZeichnen
 
End Sub
 
Private Sub TestButtonZeichnen()
 
   Set TestButton = Controls.Add( _
      "VB.CommandButton", _
      "CmdButton")
      TestButton.Caption = "TestButton"
      TestButton.Left = 500
      TestButton.Top = 500
      TestButton.Visible = True
 
End Sub
 
Private Sub Command1_Click()
 
   Controls.Remove TestButton
 
End Sub