如何不用API使文本框属性只读？

以下两种方法都可实现：

Private Sub Text1_GotFocus()
　  Text1.Locked = True
End Sub
Private Sub Text1_LostFocus()
　  Text1.Locked = False
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, _
Shift As Integer)
　  KeyCode = 0
End Sub

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