Attribute VB_Name = "modComboCopy"
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const CB_ADDSTRING = &H143
'Private Const CB_GETCOUNT = &H146
'Private Const CB_GETLBTEXT = &H148

Public Sub sComboAddItem(ByVal cboDestination As ComboBox, ByVal strItemText As String)
'On Error Resume Next
    'strItemText was DIM As String * 255 ? ???

   Call SendMessage(cboDestination.hwnd, CB_ADDSTRING, 0&, ByVal strItemText)
   
   'fComboAddItem = Err.Number 'SendMessage(cboDestination.hWnd, CB_GETCOUNT, 0&, ByVal 0&)
      
End Sub



