• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Justify text from Right to Left.

Justify text from Right to Left.

Justify text from Right to Left.

Rate Justify text from Right to Left.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Text1.Alignment = vbRightJustify
End Sub

Private Sub Text1_Change()
    Call setRighttoleft(Text1)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        SendKeys "{End}"
        Text1.Text = Text1.Text & vbNewLine
    ElseIf KeyAscii = 8 Then
        SendKeys "{Delete}"
    End If
End Sub