Increasing the width of a combo on the dropdown event. Can i project this increase t

[miben]

this is better:

Private lngWidth As Long
Private lngLeft As Long

Private Sub cboState_DropDown()
If cboState.Width = lngWidth Then
    cboState.Left = lngWidth - 600
    cboState.Width = lngLeft + 600
End If
End Sub

Private Sub cboState_LostFocus()
cboState.Width = lngWidth
cboState.Left = lngLeft
End Sub

Private Sub Form_Load()
lngWidth = cboState.Width
lngLeft = cboState.Left
End Sub

hehe