toolbar - unclick able problem



============================================================================

I?m using vb6 with winXP sp2

I am facing small problem regarding the screen flipping in Visual Basic 6.0
for the Arabic conversion of my application.

I?m doing the following

Add toolbar1 to the form then add a button as [A] then add 2 button menus
[B] and [C] , make the style of [A] dropdown button

Create a module and declare the following APIs

Public Declare Function GetWindowLong Lib "user32" Alias
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong
As Long) As Long
Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As
Long, lpRect As Long, ByVal bErase As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As
String, ByVal lpsz2 As String) As Long
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal
wCmd As Long) As Long
Public Const GW_CHILD = 5
Public Const WS_EX_LAYOUTRTL = &H400000
Public Const GWL_EXSTYLE = (-20)




At the form load add the mirroring effect as follows

Private Sub Form_Load() 'On Form Load you need to set the mirroring
for the controls
Dim OldLong As Long
'For Form
OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
InvalidateRect hwnd, 0, False

'For ToolBar
mhwnd = GetWindow(Toolbar1.hwnd, GW_CHILD)
oldlong = GetWindowLong(mhwnd, GWL_EXSTYLE)
SetWindowLong mhwnd, GWL_EXSTYLE, oldlong Or WS_EX_LAYOUTRTL
InvalidateRect hwnd, 0, False
End Sub




After that the toolbar1 become unclick able!!!!!

Is there any work around?


.