Private Sub Form_Load()
'  ?  "a0001"
End Sub
Private Sub Command1_Click()
'  For i = 0 To  ?
'    List1.ListIndex =  ?
    If List1.Text = Text1.Text Then
        MsgBox "不允许重复输入，请重新输入!"
        Exit Sub
    End If
  Next i
'  ? Text1.Text
  Text1.Text = ""
End Sub
Private Sub Command2_Click()
'  ?
End Sub