ช่วยดูโค้ด Vb นี้หน่อยครับ

ผมจะให้มันคำนวนว่าฟอนต์มันขนาดเท่านี้แล้วแสดงผลผมใช้สคริปต์อย่างนี้ครับ

Private Sub cmd_bigger(Index As Integer)
   Dim size As Integer
   size = lbl_output.FontSize
   lbl_output.FontSize = size + 4
   lbl_size.Caption = lbl_output.FontSize

End Sub

พอผมลองทดสอบมันได้เป็น 22.2 ซึ่งเกินมา 0.2 ผมจะต้องแก้หรือเพิ่มโค้ดตรงไหนครับ ขอบคุณครับ