Private Sub ボタン_Click()
　　subForm.SourceObject = "フォーム名"
End Sub