Attribute VB_Name = "testCheckBox2"
Sub テスト()
    Load sampleForm
    sampleForm.check1.Caption = "音楽機能が必要"
    sampleForm.check1.Value = True
    sampleForm.check2.Caption = "写真機能が必要"
    sampleForm.check2.Value = False
    sampleForm.Show
End Sub