你可以在Text的Change事件中进行检验。如： 
    Private Sub Text1_Change() 
     If Val(Text1.Text) > 20 Or Val(Text1.Text) < 10 Then 
     Text1.ForeColor = vbRed 
     Text1.Font.Italic = True 
     End If 
    End Sub 
<END>     
    