0-100 real quick

[text] 2 MINUTES INTO TUTORIAL Inports System Imports System.Drawing Inports System.Windows.Forms 1 MINUTE INTO TUTORIAL Public NotInheritable Class Forml Inherits System.Windows.Forms.Form Friend WithEvents ListDragSource As System.Windows.Forms.ListBox Friend WithEvents ListDragTarget As System.Windows.Forms.ListBox A Hello World program in Visual Basic. Friend WithEvents UseCustomCursorsCheck As System.Windows.Forms.CheckBox Module Hello Friend WithEvents DropLocationLabel As System.Windows.Forms.Label Sub Main MsgBox Hello World Display message on computer screen. Private indexOfItemUnderMouseToDrag As Integer nd Sub Private indexOfItemUnderMouseToDrop As Integer End Module Private dragBoxFromMouseDown As Rectangle Brivate screenOffset as Point Private MyNoDropCursor As Cursor Private MyNormalCursor As Cursor System.STATnread Bublic Shared Sub Main System.Windows . Forms.Application.Run New Formi End Sub Main Bublic Sub New 1yBase.New Me.ListDragSource New System.Windows.Forms.ListBox Me.ListDragTarget New System.Windows.Forms.ListBox Me . UseCustonCursorsCheck New System.Windows.Forms.CheckBox Me.DropLocationlabel New System.Windows.Forms.Label e . SuspendLayout ListbragSource Me.ListDragSource. Items.AddRange New Object one two three four fiver sixv seven elgnt nine ten Me.ListDragSource.Location New System.Drawing.Point 10 17 Me.ListDragSource.Size New System.Drawing.Size120 225 ListbragTarges Me.ListDragTarget.Allowbrop True Me.ListDragTarges.Location New System.Drawing.Point 154 17 Me.ListDragTarget.Size New System.Drawing.Size120 225