Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then ctrlnum = ctrlnum + 1 Set MonCtrl = Me.Controls.Add("VB.label", "Lbl" + Format(ctrlnum)) MonCtrl.Visible = True MonCtrl.Left = X MonCtrl.Top = Y MonCtrl.Caption = "coucou" End If End Sub