DBCombo Dropdown Height

[rrdoc]

How can I set the dropdown height for a DBCombo box instead of accepting the default? I have found code samples for accomplishing this with regular Combo boxes using the MoveWindow API function (see below). I tried adapting this to the DBCombo (I changed the "cbo as Combo" parameter to "cbo as DBCombo" and eliminated the For-Next loop that fills the combo) but this doesn't work. I searched MSDN and then the web, but I have not found a solution. Any help would be appreciated.

********************************************************
SAMPLE - SETTING DROPDOWN HEIGHT OF REGULAR COMBO BOX
Source:

http://www.vb-helper.com/HowTo/combohgt.zip

Thanks to Arden C. Harrell (ardenh@us.ibm.com).
********************************************************
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Private Sub Form_Load()
Dim i As Integer

' Make a bunch of ComboBox entries.
For i = 1 To 50
cboTestCombo.AddItem Format$(i)
Next i
cboTestCombo.ListIndex = 0

' Resie the ComboBox's dropdown area.
SizeCombo Me, cboTestCombo
End Sub
' Resize a ComboBox's dropdown display area.
Public Sub SizeCombo(frm As Form, cbo As ComboBox)
Dim cbo_left As Integer
Dim cbo_top As Integer
Dim cbo_width As Integer
Dim cbo_height As Integer
Dim old_scale_mode As Integer

' Change the Scale Mode on the form to Pixels.
old_scale_mode = frm.ScaleMode
frm.ScaleMode = vbPixels

' Save the ComboBox's Left, Top, and Width values.
cbo_left = cbo.Left
cbo_top = cbo.Top
cbo_width = cbo.Width

' Calculate the new height of the combo box.
cbo_height = frm.ScaleHeight - cbo.Top - 5
frm.ScaleMode = old_scale_mode

' Resize the combo box window.
MoveWindow cbo.hwnd, cbo_left, cbo_top, _
cbo_width, cbo_height, 1
End Sub