如下三个事件，每次编写一个框都要输入3次，请问，是否可以简化一些，写到一个“事件”里？
Private Sub Text8_Click()
Text8.Text = Val(Text8.Text) + 1 '鼠标点文字框一次自动加1
End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
KeyAscii = 0 '不允许在框内用键盘写入
End Sub
Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer)
Text8.Locked = True '框内字不能删除，只能统一用“清除”指令
End Sub

谢谢风吹过b版主的回复，框很多，应该用第一种方法，但不知如何封装自定义控件？能提供实例吗？

谢谢各位的回复，由于窗口内文本框不超过30个，暂时用复制的方法。