change pushButton Icon position

 

(this code was written by codejock and it placed in one of the sampels "MultiLanguage Scribble")

 

Example:(Vb6.0)

copy this and add it to one of your modules

 

Const WS_EX_LAYOUTRTL = &H400000
Const WS_EX_NOINHERITLAYOUT = &H100000
Const GWL_EXSTYLE = -20
Const GW_CHILD = 5
Const GW_HWNDNEXT = 2
Private Declare Function InvalidateRect Lib "user32" (ByVal hWnd As Long, lpRect As Long, ByVal bErase As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long

 

Public Sub UpdateRTLForSingelCtl(hWnd, bRTLLayout As Boolean)
    Dim Old As Long
   
    Old = GetWindowLong(hWnd, GWL_EXSTYLE)
    SetWindowLong hWnd, GWL_EXSTYLE, IIf(bRTLLayout, Old Or WS_EX_LAYOUTRTL, Old And Not WS_EX_LAYOUTRTL)

end sub

 

using the Code:

btn.icon=imag.Icons.GetImage(Id,0)

UpdateRTLForSingelCtl btn.hWnd,True