vb中,滚动条向左文本框字体变大，向右移动文本框字体变小 肿么写啊

Private Sub HScroll1_Change() HScroll1.Max = 90 Text1.Font.Size = 100 - HScroll1.ValueEnd Sub