الحدث الخاص بزر الإغلاق

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
		Dim M As String = MsgBox("Are you Sure", MsgBoxStyle.YesNo, "Alert")
		If M = vbYes Then
			MsgBox("Yes")
		End If
		If M = vbNo Then
			MsgBox("no")
		End If
	End Sub

عزيزي ضع الكود بين وسم اظهار (الكود) حتى يكون مقروء.

وبهذا الشكل سيكون في أرض الواقع.. كما هو في الاعلى من مثال الاخ boris

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
		Dim M As String = MsgBox("Are you Sure", MsgBoxStyle.YesNo, "Alert")
		If M = vbYes Then
			End
		End If
		If M = vbNo Then
			e.Cancel = True
		End If
	End Sub

شكرا جزيلا على الرد السريع