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