Public Class Form1
Inherits System.Windows.Forms.Form
'点击上面的关闭按钮是获取系统消息
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = 161 And m.WParam = 20 Then
bl_取消 = True
Me.Close()
End If
MyBase.WndProc(m)
End Sub
Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'取消
bl_取消 = True
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'确定
If 机器码.Text.Trim.Length < 5 Then
MessageBox.Show("请检查机器码")
Return
End If
是这样加吗