Adding controls dynamically...

Hi,

In my application iam generating a layout with label controls in the form onload event. In the onload event it will read the properties like X-position, Y-position and name from the database table. I want to delete the control and from the layout and to update the database table. If i tried to delete the control using Form1.Cotrols.Remove "CtrlName"  Its giving "Controls.Remove can only remove controls added with Controls.Add".

Here is my code:

Private Sub Form_Load()

Dim TabCount As Integer
Dim objCmd As New ADODB.Command
Dim objRec As New ADODB.Recordset

objCmd.ActiveConnection = "dsn=Floordsn"
objCmd.CommandText = "sp_FloorItems_FetchAll"
objCmd.CommandType = adCmdStoredProc

objRec.Open objCmd
 intIndex = 1
While Not objRec.EOF
   
    Call Controls.Add("VB.Label", "Label0" & intIndex)
    Load Label0(Label0.Count)
    With Label0(intIndex)
            .Visible = True
            .Width = 800
            .Top = objRec("FL_PosY")
            .Left = objRec("FL_PosX")
            .Height = 195
            .Caption = objRec("FL_Type")
        End With
    intIndex = intIndex + 1
   
    objRec.MoveNext
Wend


'Close the recordset and delete the objects
objRec.Close

Set objRec = Nothing
Set objCmd = Nothing
End Sub

Private Sub Label0_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
       
        mnuSub(0).Visible = True
        While mnuSub.UBound > 0
            Unload mnuSub(mnuSub.UBound)
        Wend

        'Load menu items
        Load mnuSub(1): mnuSub(1).Caption = "Delete": mnuSub(1).Tag = Index
       
        mnuSub(0).Visible = False
        PopupMenu mnuFile
    End If
End Sub

Private Sub mnuSub_Click(Index As Integer)
   
   Form1.Controls.Remove Label0(2)
End Sub