如何在VB中连续放大或缩小字体

窗体上放一个label，两个command按钮控件，试试效果，看看是不是你想要的

Dim a As Integer

Private Sub Command1_Click()
Label1.FontSize = a + 20
a = a + 2
End Sub

Private Sub Command2_Click()
Label1.FontSize = a + 20
a = a - 2
End Sub

Private Sub Form_Load()
a = 0
End Sub

dim p ，pp

p=2

for i=0 to 10
pp=pp+8
text1.fontsize=pp
for ii=0 to 10000
next ii
next i

请试看行不行。

dim p ,pp

p=2

for i=0 to 10
pp=pp+8
text1.fontsize=pp
for ii=0 to 10000
next ii
next i

请试看行不行本回答被提问者采纳