VB6 to VB.NET

If you're like me, you'll be trying to understand some of the changes to VB6 now that it has evolved into VB.NET. Below is a list of what the code was in VB6, followed by the new way of doing it in VB.NET.

VB6DoEvents

VB.NETSystem.Windows.Forms.Application.DoEvents()

VB6Command1.BackColor = vbRed

VB.NETCommand1.BackColor = System.Drawing.Color.Red

VB6ComboBox1.AddItem "one"

VB.NETComboBox1.Items.Add("one")

VB6Command1.BackColor = &H80C0FF

VB.NETCommand1.BackColor = System.Drawing.ColorTranslator.FromOle(&H80C0FF&)

VB6Form1.Caption = "Sample"

VB.NETForm1.Text = "Sample"

VB6MsgBox "message", vbInformation, "title"

VB.NETMessageBox.Show("message", "title", , MessageBoxIcon.Information)

VB6Set MyObject = Command1

VB.NETMyObject = Command1

VB6Text1.SetFocus

VB.NETText1.Focus()

VB6Command1.ToolTipText = "click me"

VB.NETToolTip1.SetToolTip(Command1, "click me")

VB6Dim objAbout As AboutForm

VB.NETDim objAbout As Pharfruminsain_AboutForm_v1r0.AboutForm

VB6sPath = App.Path

VB.NETsPath = System.Environment.CurrentDirectory

VB6Private Sub Form_Unload(Cancel As Integer)

VB.NETPrivate Sub Form1_Closing(...) Handles MyBase.Closing

VB6List1.RemoveItem (0)

VB.NETListBox1.Items.Remove(0)

VB6Dim arOne(10) As String

VB.NETDim arOne As New ArrayList(10)

VB6Open "c:\myfile.txt" For Input As #1

VB.NETFileOpen(1, "c:\myfile.txt", OpenMode.Input)

VB6Line Input #1, sTemp

VB.NETsTemp = LineInput(1)

VB6Print #1, "sample text"

VB.NETPrintLine(1, "sample text")

VB6Public Type CustomArray

VB.NETPublic Structure CustomArray

VB6Dim xRed As OLE_COLOR

VB.NETDim xRed As System.Drawing.Color

VB6List1.ListIndex = List1.ListCount - 1

VB.NETList1.SelectedIndex = List1.Items.Count - 1

VB6Me.MousePointer = vbHourglass

VB.NETCursor.Current = Cursors.WaitCursor

VB6Private Sub Label1_Change()

VB.NETPrivate Sub Label1_TextChanged(....) Handles Label1.TextChanged

VB6Form2.Show

VB.NETDim xForm As New Form2() xForm.Show()

VB6sModelOfCar = Trim(sModelOfCar)

VB.NETsModelOfCar = sModelOfCar.Trim()

VB6iCount = iCount + 1

VB.NETiCount += 1

VB6sText = sText & "hello"

VB.NETsText += "hello"

VB6TextBox1.Text = ""

VB.NETTextBox1.Clear()

VB6Unload Me

VB.NETMe.Dispose