Opret flere objekter med forskellige navne, igen, igen

Okay.. efterfølge af: http://www.eksperten.dk/spm/602276

Dim o
o = 1
Dim p As Line
  Set p = Form1.Controls.Add("VB.Line", "lh" & o)

  With p
    .Visible = True
    .X1 = Me.Width * 0.4
    .X2 = .X1
    .Y1 = Me.Width * 0.1
    .Y2 = Me.Width * 0.5

  End With

MsgBox lh1.X1
-------


MsgBox lh1.X1 virker ikke. Får denne msg: Object variable or with block variable not set.

Kan overhoved ikke få kontakt med lh1. Gør jeg istedet:

----------

Dim o
o = 1
Dim p As Line
  Set p = Form1.Controls.Add("VB.Line", "lh" & o)

  With p
    .Visible = True
    .X1 = Me.Width * 0.4
    .X2 = .X1
    msgbox .name  <---
    .Y1 = Me.Width * 0.1
    .Y2 = Me.Width * 0.5

  End With

Får jeg spyttetnavnet ud. Men kan stadig ikke komme i kontakt med det.