'------ start of example code ------
    Dim sfContainer As Access.SubForm

    Set sfContainer = ParentSubformControl(Me)

    If sfContainer Is Nothing Then
        ' Something's wrong!  I'm not a subform.
    Else
        ' Do something with the subform control.
        ' For example, double its height:
        sfContainer.Height = sfContainer.Height * 2
    End If
'------ end of example code ------