I don't know if this will make a difference but the declaration I have for
SendMessage is different from yours.

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

----- Original Message -----
From: Marilyn <rickymarilyn@s...>
To: professional vb <pro_vb@p...>
Sent: Friday, December 29, 2000 9:26 AM
Subject: [pro_vb] SendMessage API did not work on windows 2000 - need help


> I was able to use SendMessage API function to programmatically display or
> hide VB combo box list on computers with windows 95, 98 and NT but I
> failed to do so on the computer with windows 2000 operating system.  The
> following is the logic used in the program.  Please advise if you see
> anything wrong below or have any ideas.  Thanks.
>
> Marilyn
>
> Public Const WM_USER = &H400
> Public Const CB_SHOWDROPDOWN = WM_USER + 15
> Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd
> As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As
> Long) As Long
>
> Private Sub cboRemarkCode_Change()
>
>     Dim tmp
>     tmp = SendMessage(cboRemarkCode.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
>
> End Sub


---
You are currently subscribed to pro_vb as: $subst('Recip.EmailAddr')
To unsubscribe send a blank email to leave-pro_vb-$subst('Recip.MemberIDChar')@p2p.wrox.com