Public Class 鎖定視窗 Private Sub 鎖定視窗_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click SQL_鎖定確認() : Application.Exit() End Sub End Class