A TextBox named TextBox1 that is located inside Frame1.
Private Sub UserForm_Initialize()
ScrollBar1.Max = 400
ScrollBar1.Min = 10
ScrollBar1.Value = 100
Label1.Caption = "10 -----Percent of Original Size---- 400"
Label2.Caption = ScrollBar1.Value
Frame1.TextBox1.Text = "Enter your text here."
Frame1.TextBox1.MultiLine = True
Frame1.TextBox1.WordWrap = True
Frame1.Zoom = ScrollBar1.Value
End Sub
Private Sub ScrollBar1_Change()
Frame1.Zoom = ScrollBar1.Value
Label2.Caption = ScrollBar1.Value
End Sub