popupmenü + dynamisch erzeugtes label = ungute Kombination

Entity — Tue, 19 Oct 2004 08:29:57 GMT

hallo..
ich hab da ein Problem.. wenn ich ein Label graphisch erstelle, dann kann ich mit diesem Code ein popupmenü öffnen wenn ich mit der rechten Maustaste draufdrücke:
__________________________________________________________
Private Sub meinLabel_MouseUP(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnuMenu
End If
End Sub
__________________________________________________________
jedoch wenn ich dieses nicht graphisch installiere, sondern wärend der Laufzeit erstelle, dann schaff ichs nicht mehr das popupmenü über das Label zu öffnen:
__________________________________________________________
Private Sub btnNewBox_Click()

Set meinLabel = Me.Controls.Add("VB.Label", "ObjektLabel")
With meinLabel
.Caption = "blablabla"
.Top = 1500
.Left = 140
.Width = 3000
.Height = 600
.BackColor = &H8000000C
.Visible = True
End With
__________________________________________________________

habz ihr irgendeine Idee wie ich das machen kann, daß das funktioniert?
Es ist mir wirklich wichtig, daß das funktioniert, weil sonst muß ich wieder ur viel im Konzept ändern!

ich danke euch für eure Hilfe!