frmNumProp
CodeControls 2.0
Form15
cmdOK
txtNumProps
Edit4
txtNumProps
txtNumProps
Edit4
txtNumProps
txtNumProps
Edit4
txtNumProps
txtNumProps
Edit4
txtNumProps
txtNumProps
Edit4
txtNumProps
txtNumProps
Edit4
txtNumProps
txtNumProps
Edit4
txtNumProps
txtNumProps
Edit4
txtNumProps
txtNumProps
Edit4
txtNumProps
txtNumProps
Edit4
txtNumProps
lblProps
#Thousands Separator Character (T/F)
lblProps
!Display Thousands Separator (T/F)
lblProps
Positive Numbers Only
lblProps
Positive Trailer
lblProps
Positive Leader
lblProps
Negative Trailer
lblProps
Negative Leader
lblProps
Negative Number Color
lblProps
No. of Decimals
lblProps
 Decimal Character
lbProperties
Numeric Masking Properties
MS Sans Serif
Command1_Click
frmNumProp
@	Form_Load
txtNumProps,
Index
NumPropName
NumPropNames
lblProps_Click
frmMask1
Edit1
NumDecChar
CbEdit1
NumDecimals)
NumNegColor9
NumNegLeaderQ
NumNegTrailer
NumPosLeader
NumPosTrailerD
NumPosOnly
NumThouSep
NumThouSeparator
NumThouSepChar
Form_Unload
Cancel
Width[
Screen
Height
CenterForm
cmdOK_Click
txtNumProps_Changeh
txtNumProps_GotFocusO
seltext
SelStart
	SelLength
txtNumProps_KeyPress
KeyAscii
abort
lbProperties_Click
xtNumProps
cmdOK_Click
Command1_Click
Form_Load
Form_Unload
txtNumProps_GotFocus
txtNumProps_KeyPress
   Dim abort%
   If KeyAscii = 8 Then Exit Sub
 'Backspace keys
   Select Case Index
   Case 1, 2
 If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then abort = True
   Case 7, 8
 abort = True<
 If UCase(Chr$(KeyAscii)) = "Y" Or UCase$(Chr$(KeyAscii)) = "N" Then abort = False
   End Selecth
   If Index <> 1 And Index <> 2 And Len(txtNumProps(Index).Text) = 1 And txtNumProps(Index).SelLength = 0 Then abort = True)
   If abort Then
 Beepb
 KeyAscii = 0n
  End If