Attribute VB_Name = "testOption2"
Sub �e�X�g()
    Load sampleForm
    sampleForm.option1.Caption = "����"
    sampleForm.option1.Value = True
    sampleForm.option2.Caption = "����"
    sampleForm.option2.Value = True
    sampleForm.Show
End Sub