TreeView

السلام عليكم

هناك طريقتين::

الأسهل انك تستخدم الAPI كما في المثال:

    Private Declare Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer
    Private Declare Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    Const WS_EX_LAYOUTRTL = &H400000
    Const WS_EX_NOINHERITLAYOUT = &H100000
    Const ws = WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT
    Const gw As Short = -20
    Function SetRTL(ByVal Ctl As Control) As Boolean
        Dim O As Integer
        O = GetWindowLongPtr(Ctl.Handle.ToInt32, gw)
        SetWindowLongPtr(Ctl.Handle.ToInt32, gw, O Or ws)
    End Function

مرر الtreeview الى الدالة SetRTL في حدث Load