If ClassName = "combolbox" Then
CB_Item = SendMessage(hWnd, CB_GETCURSEL, 0, 0)
l = SendMessage(hWnd, CB_GETLBTEXTLEN, 0, 0)
El_Item = Space$(l + 1)
'La variable " el_Item " pasada a SendMessage retorna el dato del Item actual
l = SendMessage(hWnd, CB_GETLBTEXT, CB_Item, ByVal El_Item)
Text1.Text=El_Item
end if