お世話になります。
フォントサイズの指定方法について教えて下さい。
****************************
Option Explicit
Private m_HeaderFont As StdFont

Private Sub Command1_Click()
Dim i As Integer
Set m_HeaderFont = Nothing
Set m_HeaderFont = New StdFont
For i = 5 To 25
    m_HeaderFont.Size = i
    Text1.Text = Text1.Text & vbCr & vbLf & m_HeaderFont.Size
Next
End Sub

Public Property Get HeaderFont() As StdFont
    Set HeaderFont = m_HeaderFont
End Property

Public Property Set HeaderFont(vNewValue As StdFont)
    Set HeaderFont = vNewValue
End Property
*************************************
このように書いて、フォームにボタン１つとテキストボックス１つ(multiline=true)
おいて、実行すると、iの値が３の倍数だと正常値（6,9,12,15〜24）が表示されるのですが、
それ以外の数値だと、小数点第２位まで表示してしまいます。
（iが13なのに12.75　14なのに14.25　といった状態です。）
どうしてでしょうか？（どこを修正すればよいのでしょうか？）

> （iが13なのに12.75　14なのに14.25　といった状態です。）

元々、フォントサイズは　0.75 飛びです。
Private Sub Command1_Click()
    Dim i As Single
    Me.FontName = "ＭＳ ゴシック"
    For i = 9 To 15 Step 0.1
        Me.FontSize = i
        Debug.Print Me.FontSize
    Next i
End Sub


> どうしてでしょうか？（どこを修正すればよいのでしょうか？）

というより、貴方が何を求めているかです。
フォントサイズを整数で取得したいなら変数の型を変更すればいいだけです。

返信ありがとうございます。
> 元々、フォントサイズは　0.75 飛びです。
知りませんでした。ありがとうございました。

> というより、貴方が何を求めているかです。
> フォントサイズを整数で取得したいなら変数の型を変更すればいいだけです。

Private m_HeaderFont As StdFont
m_HeaderFont.size とするとデータ型がCurrencyでしたので、整数の型にはしませんでした。
そして　CommonDialog1.ShowFont　で取得したFontSizeが整数の場合、14.75とかになってしまい悩んでいました。

> > 元々、フォントサイズは　0.75 飛びです。
> 知りませんでした。ありがとうございました。

すべてのフォントがと言う事ではありませんので、一般的なフォントの場合と
いう事で。