Visual Basic

Public Class Form1
 
    Private cursorOffset As Point
    Private moving As Boolean
 
    Private Sub Label1_MouseDown(blah, blah) Handles Label1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            cursorOffset = e.Location
            moving = True
            Cursor = Cursors.SizeAll
        End If
    End Sub
 
    Private Sub Label1_MouseUp(blah, blah) Handles Label1.MouseUp
        moving = False
        Cursor = Cursors.Default
    End Sub
 
    Private Sub Label1_MouseMove(blah, blah) Handles Label1.MouseMove
        If moving then
            Dim clientPosition = Me.PointToClient(Cursor.Position)
            Label1.Location = New Point(clientPosition.X - cursorOffset.X, clientPosition.Y - cursorOffset.Y)
        End If
    End Sub
End Class

Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_Printer")
Dim prn As ManagementObject
For Each prn In searcher.Get()
    Console.WriteLine("Printer Name = " & prn("Name").ToString())
Next share

Public Class DataLayer
    Public Shared Function GetDatabaseConnection() As OleDbConnection
        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("CampusVoting.mdb"))
        Return conn
    End Function
.
.
.
End Class

Dave Kreskowiak wrote:

There is no way to sort them without removing ALL the TabPage controls and re-adding them in the order that you want them to appear.