Option Explicit Public gForm As Form Public Property Get SubClassedCaption() As Variant SubClassedCaption = gForm.Caption End Property Public Property Let SubClassedCaption(ByVal vNewValue As Variant) gForm.Caption = vNewValue End PropertyCreate this form (that contains a command button):
Option Explicit Private mForm As clsForm Private Sub Command1_Click() Set mForm = New clsForm With mForm Set .gForm = Me .SubClassedCaption = "a sub classed caption" End With End Sub