not letting anything in to a text box

how do I not let anything into a text box? like I have code there, I want people to be able to copy it but not change it

set the "Locked" property of the textbox to true - you can do it at design time or at runtime

Code:

---

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

---