Attribute VB_Name = "testFrame2"
Sub テスト()
    Load sampleForm
    sampleForm.frame1.Caption = "性別"
    sampleForm.frame1.ForeColor = RGB(255, 0, 0)
    sampleForm.frame1.BackColor = RGB(255, 255, 255)
    sampleForm.Frame2.Caption = "年齢"
    sampleForm.Show
End Sub