How do I get this to return the text (like in dos)

[dimava]

here is my current code:

Private Sub txtLine1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Select Case KeyCode
    Case vbKeyLeft:
    txtLine1.Text = Left(txtLine1.Text, Len(txtLine1.Text) - 1)
    txtLine1.SelStart = Len(txtLine1.Text) & " "
    txtLine1.SetFocus
    SendKeys "{END}"

    Case vbKeyControl:
    KeyCode = 0
    
    Case vbKeyRight:
    KeyCode = 0
    
    Case vbKeyUp:
    KeyCode = 0
    
    Case vbKeyDown:
    KeyCode = 0
    
    Case vbKeyHome:
    KeyCode = 0
    
    Case vbKeyDelete:
    KeyCode = 0
    
    Case vbKeyEscape:
    SendKeys "`", True
    
    Case vbKeySnapshot:
    frmDOS.PrintForm
    End Select

End Sub

now when someone clicks the left arrow it deletes the stuff from the right (just like dos)
now how do I get it restore what was there when someone clicks the right arrow (just like in dos)?

thanks in advance


Dimava