Так ваще не работает.
Попробывал, ради интереса, написал:
Код:
Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub
Опять ни какой реакции.... Получаеться дело в чем-то другом....
P.S. Забыл сказать: Когда было написано
Код:
Private Sub Combo2_Change()
Text1.FontSize = Combo2.Text
End Sub
тогда шрифт менялся, если в комбобокс цифры вводить вручную