Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll
Label1.Text = Str(HScrollBar1.Value) + " 号字"
Label1.Font = New System.Drawing.Font(Label1.Font.Name, HScrollBar1.Value)
End Su
Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll
Label1.Text = Str(HScrollBar1.Value) + " 号字"
Label1.Font = New System.Drawing.Font(Label1.Font.Name, HScrollBar1.Value)
End Su