by Abdul Haleem (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 22nd October 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Justify text from Right to Left.
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