Module Module1
    Public Enum PivotAction
        Sum = 1
        Min = 2
        Max = 3
        Count = 4
    End Enum
    Public Function Pivot(ByVal SourceTable As DataTable, _
                          ByVal PrimaryKeyColumn As String, _
                          ByVal PivotNameColumn As String, _