VB Code - Mengubah Object LeftToRight Menjadi RighToLeft

Di bawah ini merupakan fungsi VB6 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 VB6 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?