Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long


Private Sub Command1_Click()
StrLocId = LoadKeyboardLayout("00000429", 1)
Text1.RightToLeft = True
Text1.Alignment = 1
End Sub


Private Sub Command2_Click()
StrLocId = LoadKeyboardLayout(vbNull, 1)
Text1.RightToLeft = False
Text1.Alignment = 0
End Sub