Attribute VB_Name = "testTextbox1"
Sub ƒeƒXƒg()
    Load sampleForm
    sampleForm.nameText.IMEMode = fmIMEModeHiragana
    sampleForm.Show
End Sub