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