有一个很笨的问题想请教

我用这个可以定义字体.用什么可以定义字体的大小呢?
On Error Resume Next
  Dim Obj     As Object
  For Each Obj In Me.Controls
      Obj.Font.Name = "宋体"
  Next Obj
  On Error GoTo 0 --------------------编程问答-------------------- 不用了,我已经解决了.谢谢. --------------------编程问答-------------------- 哦，那就来接分了 --------------------编程问答-------------------- 我也来接分 --------------------编程问答-------------------- 来接分，但未必就能接着 --------------------编程问答-------------------- 我也来接！！！
Font.Size = xxx --------------------编程问答-------------------- 呵呵, 楼上几位要接分也得让楼主心服啊,哈哈哈.....

楼主代码问题是很大滴......

Private Sub Command1_Click()
   On Error Resume Next
   Dim ctl As Control, i%
   For Each ctl In Me.Controls
      'If TypeName(Me.Controls(i)) 有必要的话还要再判断控件类型是否能赋与Font.Name的属性
      Me.Controls(i).Font.Name = "楷体"
      i = i + 1
   Next
End Sub


--------------------编程问答-------------------- heihei --------------------编程问答-------------------- 什么呀

补充：VB ,  控件