``怎么让字的大小随着滚动条的拉动变化

- -!帮帮忙吧``我一学文的只想把补考混过去```

呵呵，不会做。我只能这样。Private Sub Form_Load()Picture1_PaintHScroll1.SmallChange = 10: HScroll1.LargeChange = 20End SubPrivate Sub HScroll1_Change()Picture1.FontSize = HScroll1.ValuePicture1.ClsPicture1.Print "国"End SubPrivate Sub Picture1_Paint()Picture1.Print "国"End Sub

呵，我可以。Private Sub Form_Load() HScroll1.Min = 1 HScroll1.Max = 72End SubPrivate Sub HScroll1_Change() Picture1.Cls Picture1.FontSize = HScroll1.Value Picture1.Print "国"End Sub

你那跟我不是一个到底啊。.汗`