Public Function ObjectExists(obj As Object) As Boolean
  Dim sName As String
 
  On Error Resume Next
  sName = Obj.Name
  ObjectExists = (Err.Number = 0)
  On Error Goto 0
End Function

If Not ObjectExists(Label1(2)) Then
  Load Label1(2)
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de