[VB6] font size

[marcio_hack]

Private Sub Combo2_Click()
  Text1.FontSize = Combo2.Text
End Sub



Private Sub Form_Load()
Dim i, a, c


  For a = 1 To 50 Step 1
    Combo2.AddItem a
  Next
Combo1.ListIndex = 0
Combo2.ListIndex = 0

End Sub

il for assegna dei valori da 1 a 50 a un combobox
poi al click su questo combo viene modificato il fontsize di un textbox,il problema è che la grandezza del font dal valore 1 al 16 rimare uguale !! Per poi cambiare in modo impressionante al 17 !! Perchè?? :master:

[xegallo]

continua questa
http://forum.html.it/forum/showthrea...hreadid=677447