schriftgröße ändern vb

[Five-O]

so, hab da ein problem,
ich habe 3 textboxen und eine kombibox.
die kombibox hat die items:
- 8,25
- 9,75
-12
-18
-24
...

So ich will nun die schriftgröße der 3 textboxen mit der kombibox verändern.
ich dachte mir das so:

Sub Kombi1_Change ()
dim li
Form3.Kombi1.ListIndex = li
Select Case li
Case 0
Form2.Text1.FontSize = 8.25
Form2.Text2.FontSize = 8.25
Form2.Text3.FontSize = 8.25
Form2.Text4.FontSize = 8.25
Case 1
Form2.Text1.FontSize = 9.75
Form2.Text2.FontSize = 9.75
Form2.Text3.FontSize = 9.75
Form2.Text4.FontSize = 9.75
Case 2
Form2.Text1.FontSize = 12
Form2.Text2.FontSize = 12
Form2.Text3.FontSize = 12
Form2.Text4.FontSize = 12
'...
end select
end sub

aber irgendwie klappt das nicht und wenn ich bei der kombi z.b. 12 auswähle springt die immer wieder zu 8,25...
wie kann ich das lösen

 

[thuemmy]

Muss das nicht so heißen?

li = Form3.Kombi1.ListIndex

Gruß thuemmy

 

[Five-O]

omg
das hätt ich wirklich sehen müssen

Naja dankeschön, jetzt funzt es so wie es soll :mrgreen: