Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
 
If MsgBox("Wirklich beenden?", MsgBoxStyle.Question Or _
            MsgBoxStyle.YesNo) = MsgBoxResult.No Then
 
            e.Cancel = True
        End If
 
    End Sub