Parsi Coders

ُس !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
برای RightToLeft می توانید از کدهای زیر استفاده کنید.

کد:
Option Explicit

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 Const WS_EX_LAYOUTRTL = &H400000

Private Const GWL_EXSTYLE = -20

Private Sub form_Load()

SetWindowLong Form1.hWnd, GWL_EXSTYLE, GetWindowLong(Form1.hWnd, GWL_EXSTYLE) Or WS_EX_LAYOUTRTL

End Sub

سوالی هست؟

Thewolf