Public Property Get Caption(ByVal Index As Long) As String
  Caption = cmdButton(Index).Caption
End Sub
 
Public Property Let Caption(ByVal Index As Long, ByVal sNewCaption As String)
  cmdButton(Index).Caption = sCaption
End Sub

UserControl1.Caption(1) = "..."
bzw.
MsgBox UserControl1.Caption(1)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de