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