Attribute VB_Name = "testFrame1"
Sub テスト()
    Load sampleForm
    sampleForm.frame1.Caption = "性別"
    sampleForm.Frame2.Caption = "年齢"
    sampleForm.Show
End Sub