rivate Sub txtExtraData_KeyPress(KeyAscii As Integer)
   ' prevent non-numeric data
   If (KeyAscii = 8) Or (KeyAscii &gt;= Asc("0") And KeyAscii &lt;= Asc("9")) Then
   Else
      KeyAscii = 0
   End If

End Sub

Private Sub txtWidth_KeyPress(KeyAscii As Integer)
   ' prevent non-numeric data
   If (KeyAscii = 8) Or (KeyAscii &gt;= Asc("0") And KeyAscii &lt;= Asc("9")) Then
   Else
      KeyAscii = 0
   End If
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td>