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