Code:
Private Sub Command1_Click() Dim j As Integer j = Len(Text1.Text) If j <> 0 Then Text1.Text = Left(Text1.Text, j - 1) End If End Sub
chaith
Last Activity: Feb 18 '14, 08:41 AM
Joined: Feb 18 '14
Location:
-
Last edited by Rabbit; Feb 20 '14, 04:09 AM. Reason: Please use [code] and [/code] tags when posting code or formatted data.
No activity results to display
Leave a comment: