How to Unload the Label Control

Situation is that there is a form on which I select the Invoice No. FOr that Invoice No, there exists multiple Referance No in the database. Whenever user selects the Invoice No I display the Related Referance No by using the lable control array as follows:
'------------------------------------------------------
'This procedure accepts a parameter named strValue
'Which is the value to be displayed in the caption
'of the label control array
'------------------------------------------------------
Private Sub AddControlsAtRunTime(strValue As String)
    Dim I As Integer
    I = Me.lblReferenceNo.UBound
    If I = 0 And Trim(Me.lblReferenceNo(I).Caption) = "0" Then
        Me.lblReferenceNo(I).Caption = Trim(strValue)
    Else
        Load Me.lblReferenceNo(I + 1)
        Me.lblReferenceNo(I + 1).Visible = True
        Me.lblReferenceNo(I + 1).Caption = Trim(strValue)
        Me.lblReferenceNo(I + 1).Top = Me.lblReferenceNo(I).Top + Me.lblReferenceNo(I).Height '+ 60
        Me.lblReferenceNo(I + 1).Left = Me.lblReferenceNo(I).Left
    End If
End Sub

'--------------------------------------------------
'-------------------------------------------------

But when I need to change the Invoice No then I need to initialixe the label control array, i.e I would need to unload the label controls created at run by using the following procedure
'----------------------------------------------
Private Sub RemoveControlsAtRunTime()
    Dim I As Integer
    Dim J As Integer
    I = Me.lblReferenceNo.UBound
    If I > 0 Then
        For J = I To 1 Step -1
            Unload lblReferenceNo(J)
        Next J
    End If
End Sub
'--------------------------------------------  


But in this procedure the statment
"Unload lblReferenceNo(J)"

gives me an error

Run time error '365'
Unable to unload witrhin this context.


So while unloading I come across this error.

Can any body tell me about this arror.