主题：输入格式问题

Validating事件

Dim reg As new System.Text.RegularExpressions.Regex("^[a-z0-9]+([._\\-]*[a-z0-9])*@([a-z0-9]+[-a-z0-9]*[a-z0-9]+.){1,63}[a-z0-9]+$")
If reg.IsMatch(e.Sender.Text) = False Then
    msgbox("格式不符合")
    e.Cancel = True
End If