Attribute VB_Name = "testTextbox5"
Sub テスト()
    Load sampleForm
    sampleForm.nameText.Text = "サンプル"
    sampleForm.nameText.Enabled = False
    sampleForm.nameText.Locked = True
    sampleForm.Show
End Sub