Private Sub DeleteEmailMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteEmailMenuItem.Click
        If AllowSaving = False Then Exit Sub
        Dim taEmailAddresses As New dsEmailManagerTableAdapters.EmailAddressesTableAdapter

        If MessageBox.Show("Are you sure you want to delete the selected entries?", "HPD Alerts", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Dim EMailID As Integer = lstEmails.SelectedItem("EmailID")
            taEmailAddresses.DeleteEmailAddress(EMailID)
            PopulateEmailsListBox()
            lstEmails.ClearSelected()
            PopulateEmailCheckBoxes()
        End If
    End Sub