Visual Basic

If (e.Effect = DragDropEffects.Copy Or e.Effect = DragDropEffects.Move) Then

    'See if the name is already in the list
    If lstCollection.FindStringExact(item) = ListBox.NoMatches Then
        'The font does not exist in the list
        If (indexOfItemUnderMouseToDrop <> ListBox.NoMatches) Then
            'There is something under the mouse so insert
            Me.lstCollection.Items.Insert(indexOfItemUnderMouseToDrop, item)
        Else
            'There is nothing under the mouse so add
            Me.lstCollection.Items.Add(item)
        End If
    End If
End If

' If the drag operation was a move then remove the item.
If (dropEffect = DragDropEffects.Move) Then
    lstCollection.Items.RemoveAt(indexOfItemUnderMouseToDrag)

    ' Select the previous item in the list as long as the list has an item.
    If (indexOfItemUnderMouseToDrag > 0) Then
	lstCollection.SelectedIndex = indexOfItemUnderMouseToDrag - 1

    ElseIf (lstCollection.Items.Count > 0) Then
	' Selects the first item.
	lstCollection.SelectedIndex = 0
    End If
End If

MyWebBrowser.Document.DesignMode = "On"

Dim conn As New Odbc.OdbcConnection("DSN=" & "client_x" & ";UID=" & "STT" & ";PWD=" & "NEED2CHANGE" & ";")
Dim dr As Odbc.OdbcDataReader
Dim strSQL As String = "select b.name, b.row_id, b.inactive_flg, b.script from SIEBEL.S_APPL_WEBSCRPT b where b.row_id = '1-K3E-1IYQ'"
Dim dt As New DataTable
Dim dg As New DataGrid
Dim cmd As New Odbc.OdbcCommand(strSQL, conn)
Dim vals() As String
Dim myAdaptor As New Odbc.OdbcDataAdapter(strSQL, conn)
myAdaptor.AcceptChangesDuringFill = True
myAdaptor.Fill(dt)

Dim ConnString As String
Dim Connect As ADODB.Connection
Dim RS As New ADODB.Recordset
Dim DataGrid1 As New DataGridEX
Dim dt As New DataTable
Dim ds As New DataSet
Dim custDA As New OleDb.OleDbDataAdapter

Dim strSQL As String = "select b.name, b.row_id, b.inactive_flg, b.script from SIEBEL.S_APPL_WEBSCRPT b"

ConnString = "DSN=" & "client_x" & ";UID=" & "SST" & ";PWD=" & "NEED2CHANGE" & ";"
Connect = New ADODB.Connection
Connect.CursorLocation = ADODB.CursorLocationEnum.adUseServer
Connect.Open(ConnString)

RS.CacheSize = 10
RS.Open(strSQL, Connect, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText)
custDA.Fill(dt, RS)

Dim f As New Form
Dim t As New TextBox
t.Multiline = True
f.Controls.Add(t)
t.Dock = DockStyle.Fill
t.Text = RS.Fields(3).GetChunk(RS.Fields(3).ActualSize)