怎么样调整 Combo的高度

Question

我在 MDI 窗体里加个了pictute 上面放一个Combobox
pictute 的 scalemode 为 3
发现 Combobox 的高度 为 20可运行后我用QQ截图发现 Combobox 只有17，18左右我想调高 Combobox  的高度 可是不能调怎么样可以调高  Combobox  的高度

Answer 1

改变字体大小可以调高  Combobox  的高度

Answer 2

http://topic.csdn.net/u/20081202/11/FE1CC6ED-4173-4CD7-9EFB-93206701FCC2.html

Answer 3

Private Declare Function SendMessage Lib _
  "USER32" Alias "SendMessageA" _
  (ByVal hwnd As Long, ByVal Msg As Long, _
  ByVal wParam As Long, ByVal lParam As Long) As Long
    Private Const CB_ERR       As Long = -1
  Private Const CB_SETITEMHEIGHT       As Long = &H153
    Private Sub Command1_Click()
  '稍小一点的高度
     SendMessage Me.Combo1.hwnd, CB_SETITEMHEIGHT, -1, 50
      Combo1.Refresh
       End Sub
    Private Sub Command2_Click()
  '稍大一点的高度
    SendMessage Me.Combo1.hwnd, CB_SETITEMHEIGHT, -1, 100
          Combo1.Refresh
        End Sub

Answer 4

用3楼的代码可以是实现
但是出现了一个新的问题combobox里的文字是在顶端的怎么样让他高度居中？