DialogResult.Yes/No

[rex028]

 MessageBox.Show("Are you sure to delete this record ? ", "Warning", MessageBoxButtons.YesNoCancel)
confirm()

Private Function confirm()
		If DialogResult.Yes Then
			btnUpdate.Enabled = True
			btnDelete.Enabled = True
			btnPrint.Enabled = True
			btnNew.Enabled = True

			txtPOBranchID.Enabled = True
			txtPOID.Enabled = True
			colorTextField(False)
			txtPOBranchID.Text = "Yes"
			Exit Function
		End If
		If DialogResult.No Then
			btnUpdate.Enabled = True
			btnDelete.Enabled = True
			btnPrint.Enabled = True
			btnNew.Enabled = True

			txtPOBranchID.Enabled = True
			txtPOID.Enabled = True
			txtPOBranchID.Text = "No"

			colorTextField(False)
			Exit Function
		End If

	End Function

Whatever i click "Yes" or "No" .... the result is "YES"

how come ??????

 

[TPM]

Dim DLR as dialogresult
dlr = messagebox. show(....)
if DLR = dialogresult.yes then
...
end if