Public Class Form1
    ' tên label là
    ' tên của Listbox Danh là list_
    ' tên nút thoát là btn_thoat
    Private Sub btn_thoat_Click(sender As Object, e As EventArgs) Handles btn_thoat.Click
        If (MessageBox.Show("Bạn có muốn thoát?", "Thông báo", MessageBoxButtons.YesNo).Equals(DialogResult.Yes)) Then
            Application.Exit()
        End If
    End Sub
End Class