12 lines
433 B
Plaintext
12 lines
433 B
Plaintext
Public Class frmMsgBox
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.Yes
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.No
|
|
Me.Close()
|
|
End Sub
|
|
End Class |