Private Sub deleteUser(ByVal UserID As Integer)
    Dim u As New ImajUser(UserID, True)

    Try
        u.Delete();
    Catch ex As Exception
        Me.Master.ErrorTitle.Text = "Delete User"
        Me.Master.ErrorMessage.Text = String.Format("Error actioning request: [ {0} ]", ex.Message)
        Me.Master.ErrorBG.Visible = True
        Me.Master.ErrorModal.Visible = True
    End Try
End Sub