如何用滚动条控制lable框的字体大小？

Question

Option ExplicitPrivate Sub Form_Load()
    With vs
        .Min = 8
        .Max = 50
        .Value = 10
        lbl.FontSize = .Value
    End With
    
End SubPrivate Sub vs_Change()
    lbl.FontSize = vs.Value
End Sub

Answer 1

这样就可以了。Private Sub Form_Load()
HScroll1.Min = 1
HScroll1.Max = 72
End SubPrivate Sub HScroll1_Change()
Label1.FontSize = HScroll1.Value
End Sub

Answer 2

Option ExplicitPrivate Function add() As Integer
     Static i As Integer
     add = i + 1
     i = i + 1
End Function
Private Sub VScroll1_Scroll()
Label1.Font.Size = add()
End SubLabel1.Font.Size = add()
End Sub