Dim oControl As Control
  Set oControl = Me.Controls.Add("VB.Line", "MyLine")
  With oControl
    .X1 = 500
    .X2 = 5000
    .Y1 = 1000
    .Y2 = 1000
    .Visible = True
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de