1. สร้างปุ่ม Exit
2. ใส่ Code ที่ ปุ่ม Exit
Dim mbr As MsgBoxResult
mbr = MsgBox("ออกจากโปรแกรมหรือไม่?",
MsgBoxStyle.OkCancel + _
MsgBoxStyle.Question + _
MsgBoxStyle.ApplicationModal, _
"ออกจากโปรแกรม")
If (mbr = MsgBoxResult.Ok) Then
Me.Close()
End If
End Sub
ไม่มีความคิดเห็น:
แสดงความคิดเห็น