此上机题的程序代码应该怎么写

[cqyl1012]

在窗体form1上画一个文本框，其名称为Text1，Text属性为“国”，FontName属性为“黑体”。再画一个水平滚动条，名称为Hscroll1，其属性为
Min 10
Max 100
Largechange 5
Smallchange 2
其功能为：当程序运行后，如果移动滚动条，文本框中的“国”字则相应扩大。

[rainstormmaster]

Private Sub Form_Load()
Me.Text1.Font = "黑体"
Me.Text1.Text = "国"
Me.HScroll1.Max = 100
Me.HScroll1.Min = 10
Me.HScroll1.LargeChange = 5
Me.HScroll1.SmallChange = 2
End Sub

Private Sub HScroll1_Change()
Me.Text1.FontSize = HScroll1.Value
End Sub