Attribute VB_Name = "testButton4"
Sub テスト()
    Load sampleForm
    sampleForm.actButton.Caption = "ボタン(e)"
    sampleForm.actButton.Accelerator = "e"
    sampleForm.Show
End Sub