Dim funcs = (From x In [Enum].GetValues(GetType(SummaryFunc)) _
Order By x _
Select New With {.ID = CInt(x), .Name =
[Enum].GetName(GetType(SummaryFunc), x)}).ToList

''' <summary>
''' An Extension of the ControlCollection
''' </summary>
''' <param name="controls"></param>
''' <returns>An Enumerable collection of all of the controls in a ControlCollection</returns>
''' <remarks></remarks>
<Extension()> _
Public Function All(ByVal controls As ControlCollection) As IEnumerable(Of Control)
    Dim results As New List(Of Control)
    For Each Control As Control In controls

select * from INFORMATION_SCHEMA.COLUMNS where table_name not like 'v%' order by TABLE_NAME, ORDINAL_POSITION
 
select * from INFORMATION_SCHEMA.ROUTINES
 
select * from INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE
select * from INFORMATION_SCHEMA.KEY_COLUMN_USAGE
 
SELECT s.name [SPECIFIC_SCHEMA], o.name [SPECIFIC_NAME], s.name [ROUTINE_SCHEMA], o.name [ROUTINE_NAME], 
case when o.[type] in ('P', 'PC') then 'PROCEDURE' 
when o.type in ('V') then 'VIEW' 

        Partial MustInherit Class InformationSchema
            Inherits System.Data.Linq.DataContext
 
            Private Shared mappingSource As System.Data.Linq.Mapping.MappingSource = New AttributeMappingSource
 
#Region " Constructors "
 
            Public Sub New(ByVal connection As String)
                MyBase.New(connection, mappingSource)
            End Sub

Imports System.Collections.Generic
Imports System.Data
Imports System.Data.Linq
Imports System.Data.Linq.Mapping
Imports System.IO
Imports System.Linq
Imports System.Text
Imports System.Diagnostics
Imports System.Reflection

 
#Region " Import Declaratives "
 
Imports System.ComponentModel
Imports System.Data.Linq
Imports System.Data.Linq.Mapping
Imports System.Reflection
 
#End Region

Dim fc As New System.Drawing.Text.InstalledFontCollection
Fonts = (From x In Enumerable.Range(0, fc.Families.Count) _
         Select New With {.Id = x + 1, _
                          .Name = fc.Families(x).Name, _
                          .SortOrder = (x + 1) * 100}).ToList
fc = Nothing

 
Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Threading
Imports System.Text
 
Public Class Form1
 
    Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
        MemoEdit1.Text = ""

<Extension()> _
Public Function GetBindingInfo(ByVal DataLayoutControl As DataLayoutControl, _
                               Optional ByVal ExcludePropetries As String = "") As List(Of DataLayoutBindingInfo)
    Dim bh As New LayoutElementsBindingInfoHelper(DataLayoutControl)
    Dim info As LayoutElementsBindingInfo = bh.CreateDataLayoutElementsBindingInfo
    GetBindingInfo = (From x As LayoutElementBindingInfo In info.GetAllBindings _
                      Where (Not x.DataInfo.Name.ToUpper.EqualsAny(ExcludeNames)) _
                      And (Not x.DataInfo.Name.ToUpper.EqualsAny(ExcludePropetries)) _
                      Select New DataLayoutBindingInfo(x.DataInfo.Name, x.DataInfo.Caption, x.Visible, x.EditorType)).ToList
End Function

<Extension()> _
Public Function EqualsAny(ByVal s As String, ByVal items As String, _
                              Optional ByVal sep As Char = ","c, _
                              Optional ByVal Comparison As StringComparison = CurrentCultureIgnoreCase) As Boolean
    Dim itemz As List(Of String) = items.Split(sep).ToList
    Dim idx = (From x In itemz Where s.Equals(x, Comparison) Select x).ToList
    EqualsAny = (idx.Count > 0)
    itemz = Nothing : idx = Nothing
End Function

<Extension()> _
Public Function RoundRect(ByVal form As Form, _
                     Optional ByVal radius As Integer = 18) As Region
    form.FormBorderStyle = FormBorderStyle.None
    Return New Region(New Rectangle(0, 0, form.Width, form.Height).RoundRect(radius))
End Function
 
<Extension()> _
Public Function RoundRect(ByVal rect As Rectangle, ByVal radius As Integer) As Drawing2D.GraphicsPath
    Dim oPath As Drawing2D.GraphicsPath = New Drawing2D.GraphicsPath()

<Extension()> _
Public Function TimeIntervals(ByVal DateNavigator As DateNavigator) As TimeIntervalCollection
    Dim dc As List(Of DateTime) = (From x In DateNavigator.Selection Order By CDate(x) Select CDate(x)).ToList
    TimeIntervals = New TimeIntervalCollection
    Dim startdt As DateTime = DateTime.MinValue, enddt As DateTime = DateTime.MinValue
    For Each dt As DateTime In dc
        If startdt = DateTime.MinValue Then startdt = dt
        If enddt > DateTime.MinValue _
        AndAlso enddt.AddDays(1) < dt Then
            TimeIntervals.Add(New TimeInterval(startdt, enddt.Subtract(startdt)))

DECLARE @ParamFromDate datetime
DECLARE @ParamToDate datetime
DECLARE @ParamQueues varchar(50)
DECLARE @CurrentDate DATETIME
DECLARE @L_Start varchar(50)
DECLARE @L_End varchar(50)
DECLARE @LSQL as varchar(1500)
DECLARE @LCOL as varchar(50)
DECLARE @TableName1 varchar(50)
DECLARE @TableName2 varchar(50)

'Form1.vb
#Region " Import Declaratives "
 
Imports DevExpress.XtraEditors
Imports DevExpress.Utils.Menu
Imports System.IO
Imports System.Xml.Serialization
 
#End Region