MaskEdBox的问题

[charmw]

Private Sub Command1_Click()
MaskEdBox1.Text = "9999- - "
End Sub

Private Sub Form_Load()
MaskEdBox1.Mask = "aaaa-aaa-aa" 'fncDiv
End Sub
初始化时MaskEdBox1显示为"____-___-__"
我要用"9999- - "才能在MaskEdBox1中得到"9999-___-__"有没有其它的方法?
还有 我希望在MaskEdBox1中显示成"_-_-_"而在每个"_"处随便我输几个数字 该怎么为 谢谢

[haisuifeng]

1. MaskEdBox1.mask="####-##-##"