Private Type TPoint

 

   x As Long

 

   y As Long

 

End Type

 

Private Type TRect

 

   Left As Long

 

   Top As Long

 

   Right As Long

 

   Bottom As Long

 

End Type

 

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 Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As TRect) As Long

 

Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As TPoint) As Long

 

Dim i As Integer

 

Public Sub Size_Combo(frm As Form, rCbo As ComboBox, Width, Height)

 

   Dim PT As TPoint, Rct As TRect

 

   frm.ScaleMode = vbPixels

 

   Call GetWindowRect(rCbo.hwnd, Rct)

 

   PT.x = Rct.Left

 

   PT.y = Rct.Top

 

   Call ScreenToClient(frm.hwnd, PT)

 

   Call MoveWindow(rCbo.hwnd, PT.x, PT.y, Width, Height, True)

 

End Sub

 

Private Sub Form_Load()

 

   For i = 0 To 100

 

      Combo1.AddItem "item - " + CStr(i)

 

   Next i

 

   Call Size_Combo(Me, Combo1, Combo1.Width, 500)

 

End Sub