主题：[求助]如何控制输入格式

 你说的0001234-A，左边的0001234是指数字，还是指000是固定的，1234是数字随意变换？

 编写控件的 validating 事件，规则根据你自己想要的格式改变。

Dim text As String = e.Sender.Text
Dim match As String = "^000{1}[0-9]{4}$|^000{1}[0-9]{4}-A{1}$"
If Not System.Text.RegularExpressions.Regex.IsMatch(text, match) Then
    msgbox("格式不正确")
    e.Cancel = True
End If

测试成功!