#Region "RTL"
'SENATORMAS@GMAIL.COM
Public Const WS_EX_LAYOUTRTL As Long = 4194304
Public Const GWL_EXSTYLE As Integer = -20
<DllImport("coredll.dll", SetLastError:=True, _
CharSet:=CharSet.Unicode)> _
Public Function SetWindowLong( _
ByVal hWnd As IntPtr, _
ByVal nIndex As Integer, ByVal dwNewLong As Long) _
As Boolean
End Function
Public Function GetWindowLong( _
ByVal hWnd As IntPtr, _
ByVal nIndex As Integer) _
As Boolean
End Function
Public Sub EnableRightToLeft(ByVal c As Control)
Dim lS As Long = GetWindowLong(c.Handle, GWL_EXSTYLE)
lS = WS_EX_LAYOUTRTL
SetWindowLong(c.Handle, GWL_EXSTYLE, lS)
c.Invalidate()
End Sub
#End Region
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
EnableRightToLeft(Me)
End Sub