increase font by form size vb6

Date: Wed-May-17-2017-
Response
0
Here is one example that will resize list box font when for is resized
For pp = 0 To 39
    Dim iFontSize As Single
    iFontSize = 1 * (Me.ScaleWidth * 0.001)
    List1(pp).FontSize = iFontSize
Next

[d] By: occlusion
Date: Wed-May-17-2017
Response
What is 1 + 100

Just Updated::