ublicClassfrmAddUser PrivateSubfrmAddUser_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load '默认情况下，添加系统管理员级别的用户 radioAdmin.Checked=True EndSub PrivateSubbtnAdd_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)