我想做个东西，学VB的请进来帮下我

就是说，我想做个日期的，用3个TEXT做，怎样能实现第一TEXT输入完年份4个数字之后光标自动跳到第二个TEXT填月份呢？

另外，怎样能实现只能在TEXT里填数字呢？

谢谢各位！！

Private Sub Text1_Change()

If Len(Text1.Text) = 4 Then Text2.SetFocus

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0

End Sub