combobox字体初始化代码看不懂？解决方法

combobox字体初始化代码看不懂？
Private   Sub   InitFontNameCombo(ByRef   cbo   As   ComboBox)
                Dim   i,   j   As   Integer
                Dim   fontFamilies()   As   FontFamily
                Dim   FontInstalled   As   New   System.Drawing.Text.InstalledFontCollection
                fontFamilies   =   FontInstalled.Families
                cbo.DataSource   =   fontFamilies
                cbo.DisplayMember   =   "Name "
                cbo.ValueMember   =   "Name "
                cbo.SelectedValue   =   Me.Font.FontFamily.Name

        End   Sub
这段代码哪规定初始化字体为宋体的啊，我看了半天不明白？

------解决方案--------------------
因为窗体的默认字段为“宋体”：Me.Font.FontFamily.Name
cbo.SelectedValue = Me.Font.FontFamily.Name这句代码就将字体设成了宋体，不信你把这名代码注释后执行看看。
------解决方案--------------------
楼上正确