Attribute VB_Name = "testToggle2"
Sub テスト()
    Load sampleForm
    sampleForm.toggle1.Caption = "駅から近い"
    sampleForm.toggle1.Value = True
    sampleForm.toggle2.Caption = "駐車場あり"
    sampleForm.toggle2.Value = False
    sampleForm.Show
End Sub