Private Sub chkSelectAll_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkSelectAll.CheckedChanged
        Dim i As Integer
        Dim sName As String

        For i = 0 To lstPermitionsPer.Items.Count - 1
            If chkSelectAll.Checked = True Then
                lstPermitionsPer.SetItemChecked(i, True)
                sName = lstPermitionsPer.Items(i).ToString
            Else
                lstPermitionsPer.SetItemChecked(i, False)
                sName = lstPermitionsPer.Items(i).ToString
            End If
        Next

    End Sub