text1.locked=true或者Text1.Enabled = False或者：Text1.Visible = False或者：Private Sub Text1_Change()Text1.Text = ""End Sub
设置text的属性kocked为true就行
text1.locked=true
