Fungsi Mengubah Object LeftToRigth Menjadi RightToLeft

Di bawah ini merupakan fungsi untuk mengubah objek yang tidak memiliki properties LeftToRight agar seolah-olah memiliki properties tersebut. Melalui akal-akalan fungsi API, hal tersebut mungkin untuk dilakukan.

Option Explicit 
 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'TreeView1 RightToLeft True 
 
Private Const WS_EX_LAYOUTRTL = 4194304 
Private Const GWL_EXSTYLE = -20 
 
Public Sub ctlRightToLeft(ctl As   Control) 
    SetWindowLong ctl.hWnd, GWL_EXSTYLE, WS_EX_LAYOUTRTL 
End Sub 

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click() 
    ctlRightToLeft TreeView1 
    TreeView1.Appearance = cc3D 
    TreeView1.BorderStyle = ccFixedSingle 
    TreeView1.Refresh 
End Sub 

Coba Anda ganti objeknya misalnya menggunakan Progress Bar, kemudian lihat apa yang terjadi?