Attribute VB_Name = "testTextbox9" Sub ƒeƒXƒg() Load sampleForm sampleForm.nameText.MultiLine = True sampleForm.nameText.ScrollBars = fmScrollBarsHorizontal sampleForm.nameText.ScrollBars = fmScrollBarsVertical sampleForm.Show End Sub