Microsoft

This section includes options to upgrade the common controls created by Microsoft and shipped with Visual Basic 6.0.

All these options have two choices: to upgrade using COM Interop and to upgrade using .NET native components. In general, it is recommended to use the .NET native components, although in some cases there might be some manual changes required to achieve functional equivalence.

1. MSACAL

Microsoft Calendar Control control.

1.1. To System.Windows.Forms.MonthCalendar

Convert MSACAL.Calendar to a .NET equivalent control.

By using this option the converted application will not have any references to the COM Component

Class

Maps to

MSACAL.Calendar

System.Windows.Forms.MonthCalendar

Original VB6 code:

Begin VB.Form Form1
...
	Begin MSACAL.Calendar Calendar1 
		Height          =   2895
		Left            =   120
		TabIndex        =   0
		Top             =   120
		Width           =   4335
		...
	End	
End

C# code:

partial class Form1
{
	...
	public System.Windows.Forms.MonthCalendar Calendar1;
	...
	private void InitializeComponent()
	{
		...
		this.Calendar1 = new System.Windows.Forms.MonthCalendar();
		...
		// 
		//Calendar1
		// 
		this.Calendar1.AllowDrop = true;
		this.Calendar1.BackColor = System.Drawing.SystemColors.Control;
		this.Calendar1.FirstDayOfWeek = System.Windows.Forms.Day.Sunday;
		this.Calendar1.Font = new System.Drawing.Font("Arial", 8.25f, System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0);
		this.Calendar1.Font = new System.Drawing.Font("Arial", 8.25f, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0);
		this.Calendar1.Font = new System.Drawing.Font("Arial", 12f, System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0);
		this.Calendar1.Location = new System.Drawing.Point(88, 56);
		this.Calendar1.Name = "Calendar1";
		this.Calendar1.TabIndex = 0;
		this.Calendar1.TitleForeColor = System.Drawing.Color.Black;
		this.Calendar1.TitleForeColor = System.Drawing.Color.FromArgb(0, 0, 160);
		this.Calendar1.Width = 113;
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents Calendar1 As System.Windows.Forms.MonthCalendar
	...
	Private Sub InitializeComponent()
		...
		Me.Calendar1 = New System.Windows.Forms.MonthCalendar()
		...
		' 
		'Calendar1
		' 
		Me.Calendar1.AllowDrop = True
		Me.Calendar1.BackColor = System.Drawing.SystemColors.Control
		Me.Calendar1.FirstDayOfWeek = System.Windows.Forms.Day.Sunday
		Me.Calendar1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0)
		Me.Calendar1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0)
		Me.Calendar1.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0)
		Me.Calendar1.Location = New System.Drawing.Point(88, 56)
		Me.Calendar1.Name = "Calendar1"
		Me.Calendar1.TabIndex = 0
		Me.Calendar1.TitleForeColor = System.Drawing.Color.Black
		Me.Calendar1.TitleForeColor = System.Drawing.Color.FromArgb(0, 0, 160)
		Me.Calendar1.Width = 113

1.2. To COM Interop

This feature will take the legacy COM control and create an interoperability code wrapper to make it visible from the managed code. This means the control's functionality will remain the same since it will use the same binary, but the resulting application will depend on the legacy control.

Original VB6 code:

Begin VB.Form Form1
...
	Begin MSACAL.Calendar Calendar1 
		Height          =   2895
		Left            =   120
		TabIndex        =   0
		Top             =   120
		Width           =   4335
		...
	End	
End

C# code:

partial class Form1
{
	...
	public  AxMSACAL.AxCalendar Calendar1;
	...
	private void  InitializeComponent()
	{
		...
		this.Calendar1 = new AxMSACAL.AxCalendar();
		this.Calendar1.Location = new System.Drawing.Point(8, 8);
		this.Calendar1.Name = "Calendar1";
		this.Calendar1.OcxState = (System.Windows.Forms.AxHost.State) resources.GetObject("Calendar1.OcxState");
		this.Calendar1.ScrollBars = RichTextLib.ScrollBarsConstants.rtfNone;
		this.Calendar1.Size = new System.Drawing.Size(289, 193);
		this.Calendar1.TabIndex = 0;
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents Calendar1 As AxMSACAL.AxCalendar
	...
	Private Sub InitializeComponent()
		...
		Me.Calendar1.AllowDrop = True
		Me.Calendar1.Location = New System.Drawing.Point(88, 56)
		Me.Calendar1.Name = "Calendar1"
		Me.Calendar1.OcxState = CType(resources.GetObject("Calendar1.OcxState"), System.Windows.Forms.AxHost.State)
		Me.Calendar1.Size = New System.Drawing.Size(113, 89)
		Me.Calendar1.TabIndex = 0
		...

2. MSComCt2

Microsoft Windows Common Controls 2 library.

2.1. To native .NET component (System.Windows.Forms)

Convert Microsoft's MSComCtl2 classes to System.Windows.Forms.

By using this option the converted application will not have any reference to the COM Component.

The following list shows which MSComCtl2 controls are mapped to .NET equivalents:

Class

Maps to

MSComCtl2.DTPicker

System.Windows.Forms.DateTimePicker

MSComCtl2.MonthView

System.Windows.Forms.MonthCalendar

MSComCtl2.FormatConstants

System.Windows.Forms.DateTimePickerFormat

MSComCtl2.MonthViewHitTestAreas

System.Windows.Forms.MonthCalendar.HitArea

MSComCtl2.DayConstants

System.Windows.Forms.Day

Original VB6 code:

Begin VB.Form Form1 
...
	Begin MSComCtl2.DTPicker DTPicker1 
		...
	End
	Begin MSComCtl2.MonthView MonthView1 
		...
	End
...

C# code:

partial class Form1
{
	...
	public  System.Windows.Forms.DateTimePicker DTPicker1;
	...
	public  System.Windows.Forms.MonthCalendar MonthView1;
	...
	private void  InitializeComponent()
	{
		...
		this.DTPicker1 = new System.Windows.Forms.DateTimePicker();
		...
		this.MonthView1 = new System.Windows.Forms.MonthCalendar();
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents DTPicker1 As System.Windows.Forms.DateTimePicker
	Public WithEvents MonthView1 As System.Windows.Forms.MonthCalendar
	...
	Private Sub InitializeComponent()
		...
		Me.DTPicker1 = New System.Windows.Forms.DateTimePicker
		...
		Me.MonthView1 = New System.Windows.Forms.MonthCalendar
		...

2.2. To COM Interop

Original VB6 code:

Begin VB.Form Form1 
...
	Begin MSComCtl2.DTPicker DTPicker1 
		...
	End
	Begin MSComCtl2.MonthView MonthView1 
		...
	End
...

C# code:

partial class Form1
{
	...
	public AxMSComCtl2.AxDTPicker DTPicker1;
	public AxMSComCtl2.AxMonthView MonthView1;
	...
	private void  InitializeComponent()
	{
		...
		this.DTPicker1 = new AxMSComCtl2.AxDTPicker();
		this.MonthView1 = new AxMSComCtl2.AxMonthView();
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents DTPicker1 As AxMSComCtl2.AxDTPicker
	Public WithEvents MonthView1 As AxMSComCtl2.AxMonthView
	...
	Private Sub InitializeComponent()
		...
		Me.DTPicker1 = New AxMSComCtl2.AxDTPicker
		Me.MonthView1 = New AxMSComCtl2.AxMonthView
		...

3. MSComCtl

Microsoft Windows Common Controls Library

3.1. To native .NET component (System.Windows.Forms)

Convert Microsoft's MSComctlLib classes to System.Windows.Forms.

By using this option the converted application will not have any reference to the COM Component.

Class

Maps to

MSComctlLib.StatusBar

System.Windows.Forms.StatusStrip

MSComctlLib.ToolBar

System.Windows.Forms.ToolStrip

MSComctlLib.ImageList

System.Windows.Forms.ImageList

MSComctlLib.TabStrip

System.Windows.Forms.TabControl

MSComctlLib.TreeView

System.Windows.Forms.TreeView

MSComctlLib.ImageCombo

System.Windows.Forms.ComboBox

MSComctlLib.ListView

System.Windows.Forms.ListView

MSComctlLib.ProgressBar

System.Windows.Forms.ProgressBar

Original VB6 code:

Begin VB.Form Form1 
...
	Begin MSComctlLib.ImageCombo ImageCombo1 
		...
	End
	Begin MSComctlLib.Slider Slider1 
		...
	End
	Begin MSComctlLib.ImageList ImageList1 
		...
	End
	Begin MSComctlLib.ListView ListView1 
		...
	End
	Begin MSComctlLib.TreeView TreeView1 
		...
	End
	Begin MSComctlLib.ProgressBar ProgressBar1 
		...
	End
	Begin MSComctlLib.StatusBar StatusBar1 
		...
	End
	Begin MSComctlLib.TabStrip TabStrip1 
		...
	End
	Begin MSComctlLib.Toolbar Toolbar1 
		...
	End
...

C# code:

partial class Form1
{
	...
	public  System.Windows.Forms.MaskedTextBox MaskEdBox1;
	public  System.Windows.Forms.ComboBox ImageCombo1;
	public  System.Windows.Forms.TrackBar Slider1;
	public  System.Windows.Forms.ImageList ImageList1;
	public  System.Windows.Forms.ListView ListView1;
	public  System.Windows.Forms.TreeView TreeView1;
	public  System.Windows.Forms.ProgressBar ProgressBar1;
	private  System.Windows.Forms.ToolStripStatusLabel _StatusBar1_Panel1;
	public  System.Windows.Forms.StatusStrip StatusBar1;
	private  System.Windows.Forms.TabPage _TabStrip1_Tab1;
	public  System.Windows.Forms.TabControl.TabPageCollection TabStrip1_Tabs;
	public  System.Windows.Forms.TabControl TabStrip1;
	public  System.Windows.Forms.ToolStrip Toolbar1;
	...
	private void  InitializeComponent()
	{
		...
		this.ImageCombo1 = new System.Windows.Forms.ComboBox();
		this.Slider1 = new System.Windows.Forms.TrackBar();
		this.ImageList1 = new System.Windows.Forms.ImageList();
		this.ListView1 = new System.Windows.Forms.ListView();
		this.TreeView1 = new System.Windows.Forms.TreeView();
		this.ProgressBar1 = new System.Windows.Forms.ProgressBar();
		this.StatusBar1 = new System.Windows.Forms.StatusStrip();
		this._StatusBar1_Panel1 = new System.Windows.Forms.ToolStripStatusLabel();
		this.TabStrip1 = new System.Windows.Forms.TabControl();
		this.TabStrip1_Tabs = new System.Windows.Forms.TabControl.TabPageCollection(TabStrip1);
		this._TabStrip1_Tab1 = new System.Windows.Forms.TabPage();
		this.Toolbar1 = new System.Windows.Forms.ToolStrip();
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents ImageCombo1 As System.Windows.Forms.ImageComboBox
	Public WithEvents Slider1 As System.Windows.Forms.TrackBar
	Public WithEvents ImageList1 As System.Windows.Forms.ImageList
	Public WithEvents ListView1 As System.Windows.Forms.ListView
	Public WithEvents TreeView1 As System.Windows.Forms.TreeView
	Public WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
	Private WithEvents _StatusBar1_Panel1 As System.Windows.Forms.ToolStripStatusLabel
	Public WithEvents StatusBar1 As System.Windows.Forms.StatusStrip
	Private WithEvents _TabStrip1_Tab1 As System.Windows.Forms.TabPage
	Public WithEvents TabStrip1_Tabs As System.Windows.Forms.TabControl.TabPageCollection
	Public WithEvents TabStrip1 As System.Windows.Forms.TabControl
	Public WithEvents Toolbar1 As System.Windows.Forms.ToolStrip
	...
	Private Sub InitializeComponent()
		...
		Me.ImageCombo1 = New System.Windows.Forms.ImageComboBox
		Me.Slider1 = New System.Windows.Forms.TrackBar
		Me.ImageList1 = New System.Windows.Forms.ImageList
		Me.ListView1 = New System.Windows.Forms.ListView
		Me.TreeView1 = New System.Windows.Forms.TreeView
		Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
		Me.StatusBar1 = New System.Windows.Forms.StatusStrip
		Me._StatusBar1_Panel1 = New System.Windows.Forms.ToolStripStatusLabelo
		Me.TabStrip1 = New System.Windows.Forms.TabControl
		Me.TabStrip1_Tabs = New System.Windows.Forms.TabControl.TabPageCollection(TabStrip1)
		Me._TabStrip1_Tab1 = New System.Windows.Forms.TabPage
    		Me.Toolbar1 = New System.Windows.Forms.ToolStrip
		...

3.2. To COM Interop

Original VB6 code:

Begin VB.Form Form1 
...
	Begin MSComctlLib.ImageCombo ImageCombo1 
		...
	End
	Begin MSComctlLib.Slider Slider1 
		...
	End
	Begin MSComctlLib.ImageList ImageList1 
		...
	End
	Begin MSComctlLib.ListView ListView1 
		...
	End
	Begin MSComctlLib.TreeView TreeView1 
		...
	End
	Begin MSComctlLib.ProgressBar ProgressBar1 
		...
	End
	Begin MSComctlLib.StatusBar StatusBar1 
		...
	End
	Begin MSComctlLib.TabStrip TabStrip1 
		...
	End
	Begin MSComctlLib.Toolbar Toolbar1 
		...
	End
...

C# code:

partial class Form1
{
	...
	public  AxMSComctlLib.AxImageCombo ImageCombo1;
	public  AxMSComctlLib.AxSlider Slider1;
	public  AxMSComctlLib.AxImageList ImageList1;
	public  AxMSComctlLib.AxListView ListView1;
  	public  AxMSComctlLib.AxTreeView TreeView1;
	public  AxMSComctlLib.AxProgressBar ProgressBar1;
	public  AxMSComctlLib.AxStatusBar StatusBar1;
	public  AxMSComctlLib.AxTabStrip TabStrip1;
  	public  AxMSComctlLib.AxToolbar Toolbar1;
	...
	private void  InitializeComponent()
   	{
		...
		this.ImageCombo1 = new AxMSComctlLib.AxImageCombo();
		this.Slider1 = new AxMSComctlLib.AxSlider();
		this.ImageList1 = new AxMSComctlLib.AxImageList();
		this.ListView1 = new AxMSComctlLib.AxListView();
		this.TreeView1 = new AxMSComctlLib.AxTreeView();
    		this.ProgressBar1 = new AxMSComctlLib.AxProgressBar();
		this.StatusBar1 = new AxMSComctlLib.AxStatusBar();
 		this.TabStrip1 = new AxMSComctlLib.AxTabStrip();
		this.Toolbar1 = new AxMSComctlLib.AxToolbar();
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents ImageCombo1 As AxMSComctlLib.AxImageCombo
	Public WithEvents Slider1 As AxMSComctlLib.AxSlider
	Public WithEvents ImageList1 As AxMSComctlLib.AxImageList
	Public WithEvents ListView1 As AxMSComctlLib.AxListView
	Public WithEvents TreeView1 As AxMSComctlLib.AxTreeView
	Public WithEvents ProgressBar1 As AxMSComctlLib.AxProgressBar
	Public WithEvents StatusBar1 As AxMSComctlLib.AxStatusBar
	Public WithEvents TabStrip1 As AxMSComctlLib.AxTabStrip
	Public WithEvents Toolbar1 As AxMSComctlLib.AxToolbar
	...
	Private Sub InitializeComponent()
		...
		Me.ImageCombo1 = New AxMSComctlLib.AxImageCombo
		Me.Slider1 = New AxMSComctlLib.AxSlider
		Me.ImageList1 = New AxMSComctlLib.AxImageList
		Me.ListView1 = New AxMSComctlLib.AxListView
		Me.TreeView1 = New AxMSComctlLib.AxTreeView
		Me.ProgressBar1 = New AxMSComctlLib.AxProgressBar
		Me.StatusBar1 = New AxMSComctlLib.AxStatusBar
		Me.TabStrip1 = New AxMSComctlLib.AxTabStrip
		Me.Toolbar1 = New AxMSComctlLib.AxToolbar
		...

4. MSComDlg

Microsoft Common Dialog Control Library

4.1. To native .NET component (System.Windows.Forms)

The MSComDlg CommonDialog control is used to display several types of dialogs: open file, save file, printer, color, and font dialogs. In .NET there are different types of dialog controls according to the necessity.

The VB6 AI Migrator converts the CommonDialog according to its use in the Visual Basic 6.0 source code to the following alternative controls: ColorDialog, FontDialog, OpenDialog, SaveDialog, and PrintDialog.

By using this option the converted application will not have any reference to the COM Component.

Original VB6 code:

Begin VB.Form Form1 
...
	Begin MSComDlg.CommonDialog CommonDialog_Save 
		...
	End
	Begin MSComDlg.CommonDialog CommonDialog_Open 
		...
	End
	Begin MSComDlg.CommonDialog CommonDialog_Printer 
		...
	End
	Begin MSComDlg.CommonDialog CommonDialog_Font 
		...
	End
	Begin MSComDlg.CommonDialog CommonDialog_Color 
		...
	End
	Begin MSComDlg.CommonDialog CommonDialog_Help 
		...
	End
...

C# code:

partial class Form1
{
	...
	public System.Windows.Forms.SaveFileDialog CommonDialog_SaveSave;
	public System.Windows.Forms.OpenFileDialog CommonDialog_OpenOpen;
	public System.Windows.Forms.PrintDialog CommonDialog_PrinterPrint;
	public System.Windows.Forms.FontDialog CommonDialog_FontFont;
	public System.Windows.Forms.ColorDialog CommonDialog_ColorColor;
	...
	private void  InitializeComponent()
	{
		...
		this.MaskEdBox1 = new System.Windows.Forms.MaskedTextBox();
    this.CommonDialog_SaveSave = new System.Windows.Forms.SaveFileDialog();
		this.CommonDialog_OpenOpen = new System.Windows.Forms.OpenFileDialog();
    this.CommonDialog_PrinterPrint = new System.Windows.Forms.PrintDialog();
    this.CommonDialog_PrinterPrint.PrinterSettings = new System.Drawing.Printing.PrinterSettings();
		this.CommonDialog_FontFont = new System.Windows.Forms.FontDialog();
 		this.CommonDialog_ColorColor = new System.Windows.Forms.ColorDialog();
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public CommonDialog_SaveSave As System.Windows.Forms.SaveFileDialog
	Public CommonDialog_OpenOpen As System.Windows.Forms.OpenFileDialog
	Public CommonDialog_PrinterPrint As System.Windows.Forms.PrintDialog
	Public CommonDialog_FontFont As System.Windows.Forms.FontDialog
	Public CommonDialog_ColorColor As System.Windows.Forms.ColorDialog
	...
	Private Sub InitializeComponent()
		...
		Me.CommonDialog_SaveSave = New System.Windows.Forms.SaveFileDialog
		Me.CommonDialog_OpenOpen = New System.Windows.Forms.OpenFileDialog
		Me.CommonDialog_PrinterPrint = New System.Windows.Forms.PrintDialog
		Me.CommonDialog_PrinterPrint.PrinterSettings = New System.Drawing.Printing.PrinterSettings
		Me.CommonDialog_FontFont = New System.Windows.Forms.FontDialog
		Me.CommonDialog_ColorColor = New System.Windows.Forms.ColorDialog
		...

4.2. To COM Interop

Original VB6 code:

Begin VB.Form Form1 
...
	Begin MSComDlg.CommonDialog CommonDialog_Save 
		...
	End
	Begin MSComDlg.CommonDialog CommonDialog_Open 
		...
	End
	Begin MSComDlg.CommonDialog CommonDialog_Printer 
		...
	End
	Begin MSComDlg.CommonDialog CommonDialog_Font 
		...
	End
	Begin MSComDlg.CommonDialog CommonDialog_Color 
		...
	End
	Begin MSComDlg.CommonDialog CommonDialog_Help 
		...
	End
...

C# code:

partial class Form1
{
	...
	public  AxMSComDlg.AxCommonDialog CommonDialog_Save;
	public  AxMSComDlg.AxCommonDialog CommonDialog_Open;
	public  AxMSComDlg.AxCommonDialog CommonDialog_Printer;
	public  AxMSComDlg.AxCommonDialog CommonDialog_Font;
	public  AxMSComDlg.AxCommonDialog CommonDialog_Color;
	public  AxMSComDlg.AxCommonDialog CommonDialog_Help;
	...
	private void  InitializeComponent()
	{
		...
		this.CommonDialog_Save = new AxMSComDlg.AxCommonDialog();
		this.CommonDialog_Open = new AxMSComDlg.AxCommonDialog();
		this.CommonDialog_Printer = new AxMSComDlg.AxCommonDialog();
		this.CommonDialog_Font = new AxMSComDlg.AxCommonDialog();
		this.CommonDialog_Color = new AxMSComDlg.AxCommonDialog();
		this.CommonDialog_Help = new AxMSComDlg.AxCommonDialog();
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents CommonDialog_Save As AxMSComDlg.AxCommonDialog
	Public WithEvents CommonDialog_Open As AxMSComDlg.AxCommonDialog
	Public WithEvents CommonDialog_Printer As AxMSComDlg.AxCommonDialog
	Public WithEvents CommonDialog_Font As AxMSComDlg.AxCommonDialog
	Public WithEvents CommonDialog_Color As AxMSComDlg.AxCommonDialog
	Public WithEvents CommonDialog_Help As AxMSComDlg.AxCommonDialog
	...
	Private Sub InitializeComponent()
		...
		Me.CommonDialog_Save = New AxMSComDlg.AxCommonDialog
		Me.CommonDialog_Open = New AxMSComDlg.AxCommonDialog
		Me.CommonDialog_Printer = New AxMSComDlg.AxCommonDialog
		Me.CommonDialog_Font = New AxMSComDlg.AxCommonDialog
		Me.CommonDialog_Color = New AxMSComDlg.AxCommonDialog
		Me.CommonDialog_Help = New AxMSComDlg.AxCommonDialog
		...

5. DataCombo

5.1. To System.Windows.Forms.ComboBox

Convert Microsoft's MSDataList.DataCombo classes to System.Windows.Forms.

By using this option the converted application will not have any reference to the COM Component.

Class

Maps to

MSDataListLib.DataCombo.ListField

System.Windows.Forms.DisplayMember

MSDataListLib.DataCombo.BoundColumns

System.Windows.Forms.ValueMember

MSDataListLib.DataCombo.BoundText

System.Windows.Forms.SelectedValue

MSDataListLib.DataCombo.Height

System.Windows.Forms.Height

MSDataListLib.DataCombo.Width

System.Windows.Forms.Width

MSDataListLib.DataCombo.Text

System.Windows.Forms.Text

MSDataListLib.DataCombo.SelectedItem

System.Windows.Forms.SelectedIndex

MSDataListLib.DataCombo.SetFocus

System.Windows.Forms.Focus

Original VB6 code:

Private Sub Form_Load()
    Me.DataCombo1.Enabled = False
    Me.DataCombo1.Text = "Hello"
    Call Me.Refresh
End Sub

C# code:

private void Form_Load()
{
	this.DataCombo1.Enabled = false;
	this.DataCombo1.Text = "Hello";
	this.Refresh();
}

VB.NET code:

Private Sub Form_Load()
	Me.DataCombo1.Enabled = False
	Me.DataCombo1.Text = "Hello"
	Me.Refresh()
End Sub

5.2. To COM Interop

Original VB6 code:

Private Sub Form_Load()
    Me.DataCombo1.Enabled = False
    Me.DataCombo1.Text = "Hello"
    Call Me.Refresh
End Sub

C# code:

private void Form_Load()
{
	this.DataCombo1.Enabled = false;
	this.DataCombo1.CtlText = "Hello";
	this.Refresh();
}

VB.NET code:

Private Sub Form_Load()
	Me.DataCombo1.Enabled = False
	Me.DataCombo1.CtlText = "Hello"
	Me.Refresh()
End Sub

6. MSMask

Microsoft Mask Edit Control Library

6.1. To System.Windows.Forms.MaskedTextBox

Convert Microsoft's MSMask classes to System.Windows.Forms.

By using this option the converted application will not have any reference to the COM Component.

Class

Maps to

MSMask.MaskedBox

System.Windows.Forms.MaskedTextBox

MSMask.ClipModeConstants

System.Windows.Forms.MaskFormat

MSMask.BorderStyleConstants

System.Windows.Forms.BorderStyle

MSMask.MousePointerConstants

System.Windows.Forms.Cursor

Original VB6 code:

Begin VB.Form Form1 
...
Begin MSMask.MaskEdBox MaskEdBox1 
      Height          =   495
      Left            =   1200
      TabIndex        =   0
      Top             =   240
      Width           =   2055
      _ExtentX        =   3625
      _ExtentY        =   873
      _Version        =   393216
      PromptChar      =   "_"
End
...

C# code:

partial class Form1
{
	...
	public  System.Windows.Forms.MaskedTextBox MaskEdBox1;
	...
	private void  InitializeComponent()
	{
		...
		this.MaskEdBox1 = new System.Windows.Forms.MaskedTextBox();
		...
		this.MaskEdBox1.AllowPromptAsInput = false;
		this.MaskEdBox1.Font = new System.Drawing.Font("Microsoft Sans Serif", 8f, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0);
		this.MaskEdBox1.Location = new System.Drawing.Point(80, 16);
		this.MaskEdBox1.Name = "MaskEdBox1";
		this.MaskEdBox1.PromptChar = '_';
		this.MaskEdBox1.Size = new System.Drawing.Size(137, 33);
		this.MaskEdBox1.TabIndex = 0;
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents MaskEdBox1 As System.Windows.Forms.MaskedTextBox
	...
	Private Sub InitializeComponent()
		...
		Me. MaskEdBox1= New System.Windows.Forms.MaskedTextBox
		...
		Me.MaskEdBox1.AllowPromptAsInput = False
		Me.MaskEdBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0)
		Me.MaskEdBox1.Location = New System.Drawing.Point(80, 16)
		Me.MaskEdBox1.Name = "MaskEdBox1"
		Me.MaskEdBox1.PromptChar = "_"c
		Me.MaskEdBox1.Size = New System.Drawing.Size(137, 33)
		Me.MaskEdBox1.TabIndex = 0
		...

6.2. To COM Interop

Original VB6 code:

Begin VB.Form Form1 
...
Begin MSMask.MaskEdBox MaskEdBox1 
      Height          =   495
      Left            =   1200
      TabIndex        =   0
      Top             =   240
      Width           =   2055
      _ExtentX        =   3625
      _ExtentY        =   873
      _Version        =   393216
      PromptChar      =   "_"
End
...

C# code:

partial class Form1
{
	...
	public  AxMSMask.AxMaskEdBox MaskEdBox1;
	...
	private void  InitializeComponent()
	{
		...
		this.MaskEdBox1= new AxMSMask.AxMaskEdBox();
		...
		this.MaskEdBox1.Location = new System.Drawing.Point(80, 16);
		this.MaskEdBox1.Name = "MaskEdBox1";
		this.MaskEdBox1.OcxState = (System.Windows.Forms.AxHost.State) resources.GetObject("MaskEdBox1.OcxState");
		this.MaskEdBox1.Size = new System.Drawing.Size(137, 33);
		this.MaskEdBox1.TabIndex = 0;
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents MaskEdBox1 As AxMSMask.AxMaskEdBox
	...
	Private Sub InitializeComponent()
		...
		Me.MaskEdBox1 = New AxMSMask.AxMaskEdBox
		...
		Me.MaskEdBox1.Location = New System.Drawing.Point(80, 16)
		Me.MaskEdBox1.Name = "MaskEdBox1"
		Me.MaskEdBox1.OcxState = CType(resources.GetObject("MaskEdBox1.OcxState"), System.Windows.Forms.AxHost.State)
		Me.MaskEdBox1.Size = New System.Drawing.Size(137, 33)
		Me.MaskEdBox1.TabIndex = 0
		...

7. MSMQ

Microsoft Message Queue Object Library

7.1. To System.Messaging Library

Convert MSMQ (Microsoft Message Queue Object Library) to System.Messaging .NET library.

By using this option the converted application will not have any reference to the COM Component.

This upgrade option is only available for .NET framework and is not available for .NET 6 or higher.

Class

Maps to

MSMQ.MSMQQueueInfo

System.Messaging.MessageQueue

MSMQ.MSMQQueue

System.Messaging.MessageQueue

MSMQ.MSMQMessage

System.Messaging.Message

MSMQ.MSMQQueueInfos

Array of System.Messaging.MessageQueue

MSMQ.MSMQTransactionDispenser

System.Messaging.MessageQueueTransaction

MSMQ.MSMQTransactionDispenser

System.Messaging.MessageQueueTransaction

MSMQ.MSMQCoordinatedTransactionDispenser

System.Messaging.MessageQueueTransaction

Original VB6 Code:

Dim qInfo As MSMQ.MSMQQueueInfo
Dim q As MSMQ.MSMQQueue
Dim msg As MSMQ.MSMQMessage
Dim qInfos As MSMQ.MSMQQueueInfos
Dim query As MSMQ.MSMQQuery
Dim dispenser As MSMQ.MSMQTransactionDispenser
Dim transaction As MSMQ.MSMQTransaction
Private Sub Command1_Click()
    Set q = New MSMQ.MSMQQueue
    Set query = New MSMQ.MSMQQuery
    Set dispenser = New MSMQ.MSMQTransactionDispenser
    Set transaction = New MSMQ.MSMQTransaction
    Set qInfo = New MSMQ.MSMQQueueInfo
    qInfo.PathName = ".\Private$\testqueue6"
    Set q = qInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
    ' Create a new message
    Set msg = New MSMQ.MSMQMessage
    Set transaction = dispenser.BeginTransaction
    msg.Body = "Hello, MSMQ were set with the properties ,'Delivery', 'Priority', 'Journal'!"
    msg.Delivery = MQMSG_DELIVERY_EXPRESS
    msg.Priority = MQ_MAX_PRIORITY
    msg.Journal = 1
    msg.Send q, transaction
    transaction.Commit
    MsgBox "Message sent successfully", vbInformation
    q.Close
    Set q = Nothing
    ' Get Public Queues
    Set qInfos = query.LookupQueue(ServiceTypeGuid:="{00000000-0000-0000-0000-000000000004}")
End Sub

C# Code:

partial class Form1: System.Windows.Forms.Form
{
	...
	System.Messaging.MessageQueue qInfo = null;
	System.Messaging.MessageQueue q = null;
	System.Messaging.Message msg = null;
	System.Messaging.MessageQueue[] qInfos = null;
	//UPGRADE_ISSUE: (2068) MSMQ.MSMQQuery object was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2068
	UpgradeStubs.MSMQ_MSMQQuery query = null;
	System.Messaging.MessageQueueTransaction dispenser = null;
	System.Messaging.MessageQueueTransaction transaction = null;
	private void Command1_Click(Object eventSender, EventArgs eventArgs)
	{
		q = new System.Messaging.MessageQueue();
		//UPGRADE_ISSUE: (2068) MSMQ.MSMQQuery object was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2068
		query = new UpgradeStubs.MSMQ_MSMQQuery();
		dispenser = new System.Messaging.MessageQueueTransaction();
		transaction = new System.Messaging.MessageQueueTransaction();
		qInfo = new System.Messaging.MessageQueue();
		qInfo.Path = ".\\Private$\\testqueue6";
		//UPGRADE_WARNING: (2065) MSMQ.MSMQQueueInfo method qInfo.Open has a new behavior. More Information: https://docs.mobilize.net/vbuc/ewis#2065
		q = (System.Messaging.MessageQueue) (qInfo = new System.Messaging.MessageQueue(qInfo.Path, false, false, System.Messaging.QueueAccessMode.Send));
		// Create a new message
		msg = new System.Messaging.Message();
		dispenser.Begin();
		transaction = (System.Messaging.MessageQueueTransaction) dispenser;
		msg.Body = "Hello, MSMQ were set with the properties ,'Delivery', 'Priority', 'Journal'!";
		msg.Recoverable = false;
		msg.Priority = System.Messaging.MessagePriority.Highest;
		msg.UseJournalQueue = true;
		//UPGRADE_WARNING: (2065) MSMQ.MSMQMessage method msg.Send has a new behavior. More Information: https://docs.mobilize.net/vbuc/ewis#2065
		q.Send(msg);
		transaction.Commit();
		MessageBox.Show("Message sent successfully", AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()), MessageBoxButtons.OK, MessageBoxIcon.Information);
		q.Close();
		q = null;
		// Get Public Queues
		qInfos = (System.Messaging.MessageQueue[]) System.Messaging.MessageQueue.GetPublicQueuesByCategory(new Guid("{00000000-0000-0000-0000-000000000004}"));
	}
	...
}

VB.NET Code:

Partial Class Form1 
	Inherits System.Windows.Forms.Form
	...
	Dim qInfo As System.Messaging.MessageQueue
	Dim q As System.Messaging.MessageQueue
	Dim msg As System.Messaging.Message
	Dim qInfos() As System.Messaging.MessageQueue
	'UPGRADE_ISSUE: (2068) MSMQ.MSMQQuery object was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2068
	Dim query As MSMQ_DocumentationSupport.UpgradeStubs.MSMQ_MSMQQuery
	Dim dispenser As System.Messaging.MessageQueueTransaction
	Dim transaction As System.Messaging.MessageQueueTransaction
	Private Sub Command1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command1.Click
		q = New System.Messaging.MessageQueue()
		'UPGRADE_ISSUE: (2068) MSMQ.MSMQQuery object was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2068
		query = New MSMQ_DocumentationSupport.UpgradeStubs.MSMQ_MSMQQuery()
		dispenser = New System.Messaging.MessageQueueTransaction()
		transaction = New System.Messaging.MessageQueueTransaction()
		qInfo = New System.Messaging.MessageQueue()
		qInfo.Path = ".\Private$\testqueue6"
		qInfo = New System.Messaging.MessageQueue(qInfo.Path, False, False, System.Messaging.QueueAccessMode.Send)
		'UPGRADE_WARNING: (2065) MSMQ.MSMQQueueInfo method qInfo.Open has a new behavior. More Information: https://docs.mobilize.net/vbuc/ewis#2065
		q = qInfo
		' Create a new message
		msg = New System.Messaging.Message()
		dispenser.Begin()
		transaction = dispenser
		msg.Body = "Hello, MSMQ were set with the properties ,'Delivery', 'Priority', 'Journal'!"
		msg.Recoverable = False
		msg.Priority = System.Messaging.MessagePriority.Highest
		msg.UseJournalQueue = True
		'UPGRADE_WARNING: (2065) MSMQ.MSMQMessage method msg.Send has a new behavior. More Information: https://docs.mobilize.net/vbuc/ewis#2065
		q.Send(msg)
		transaction.Commit()
		MessageBox.Show("Message sent successfully", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
		q.Close()
		q = Nothing
		' Get Public Queues
		qInfos = System.Messaging.MessageQueue.GetPublicQueuesByCategory(New Guid("{00000000-0000-0000-0000-000000000004}"))
	End Sub
End Class

7.2. To COM Interop

This feature will take the legacy COM library and create an interoperability code wrapper to make it visible from the managed code. This means the library functionality will remain the same since it will use the same binary, but the resulting application will depend on the legacy library.

Original VB6 Code:

Dim qInfo As MSMQ.MSMQQueueInfo
Dim q As MSMQ.MSMQQueue
Dim msg As MSMQ.MSMQMessage
Dim qInfos As MSMQ.MSMQQueueInfos
Dim query As MSMQ.MSMQQuery
Dim dispenser As MSMQ.MSMQTransactionDispenser
Dim transaction As MSMQ.MSMQTransaction
Private Sub Command1_Click()
    Set q = New MSMQ.MSMQQueue
    Set query = New MSMQ.MSMQQuery
    Set dispenser = New MSMQ.MSMQTransactionDispenser
    Set transaction = New MSMQ.MSMQTransaction
    Set qInfo = New MSMQ.MSMQQueueInfo
    qInfo.PathName = ".\Private$\testqueue6"
    Set q = qInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
    ' Create a new message
    Set msg = New MSMQ.MSMQMessage
    Set transaction = dispenser.BeginTransaction
    msg.Body = "Hello, MSMQ were set with the properties ,'Delivery', 'Priority', 'Journal'!"
    msg.Delivery = MQMSG_DELIVERY_EXPRESS
    msg.Priority = MQ_MAX_PRIORITY
    msg.Journal = 1
    msg.Send q, transaction
    transaction.Commit
    MsgBox "Message sent successfully", vbInformation
    q.Close
    Set q = Nothing
    ' Get Public Queues
    Set qInfos = query.LookupQueue(ServiceTypeGuid:="{00000000-0000-0000-0000-000000000004}")
End Sub

C# Code:

internal partial class Form1: System.Windows.Forms.Form
{
	...
	MSMQ.MSMQQueueInfo qInfo = null;
	MSMQ.MSMQQueue q = null;
	MSMQ.MSMQMessage msg = null;
	MSMQ.MSMQQueueInfos qInfos = null;
	MSMQ.MSMQQuery query = null;
	MSMQ.MSMQTransactionDispenser dispenser = null;
	MSMQ.MSMQTransaction transaction = null;
	private void Command1_Click(Object eventSender, EventArgs eventArgs)
	{
		q = new MSMQ.MSMQQueue();
		query = new MSMQ.MSMQQuery();
		dispenser = new MSMQ.MSMQTransactionDispenser();
		transaction = new MSMQ.MSMQTransaction();
		qInfo = new MSMQ.MSMQQueueInfo();
		qInfo.PathName = ".\\Private$\\testqueue6";
		q = (MSMQ.MSMQQueue) qInfo.Open((int) MSMQ.MQACCESS.MQ_SEND_ACCESS, (int) MSMQ.MQSHARE.MQ_DENY_NONE);
		// Create a new message
		msg = new MSMQ.MSMQMessage();
		transaction = (MSMQ.MSMQTransaction) dispenser.BeginTransaction();
		msg.Body = "Hello, MSMQ were set with the properties ,'Delivery', 'Priority', 'Journal'!";
		msg.Delivery = (int) MSMQ.MQMSGDELIVERY.MQMSG_DELIVERY_EXPRESS;
		msg.Priority = (int) MSMQ.MQPRIORITY.MQ_MAX_PRIORITY;
		msg.Journal = 1;
		object tempRefParam = transaction;
		msg.Send(q, ref tempRefParam);
		transaction = (MSMQ.MSMQTransaction) tempRefParam;
		object tempRefParam2 = Type.Missing;
		object tempRefParam3 = Type.Missing;
		object tempRefParam4 = Type.Missing;
		transaction.Commit(ref tempRefParam2, ref tempRefParam3, ref tempRefParam4);
		MessageBox.Show("Message sent successfully", AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()), MessageBoxButtons.OK, MessageBoxIcon.Information);
		q.Close();
		q = null;
		// Get Public Queues
		object tempRefParam5 = null;
		object tempRefParam6 = "{00000000-0000-0000-0000-000000000004}";
		object tempRefParam7 = Type.Missing;
		object tempRefParam8 = Type.Missing;
		object tempRefParam9 = Type.Missing;
		object tempRefParam10 = Type.Missing;
		object tempRefParam11 = Type.Missing;
		object tempRefParam12 = Type.Missing;
		object tempRefParam13 = Type.Missing;
		object tempRefParam14 = Type.Missing;
		object tempRefParam15 = Type.Missing;
		qInfos = (MSMQ.MSMQQueueInfos) query.LookupQueue(ref tempRefParam5, ref tempRefParam6, ref tempRefParam7, ref tempRefParam8, ref tempRefParam9, ref tempRefParam10, ref tempRefParam11, ref tempRefParam12, ref tempRefParam13, ref tempRefParam14, ref tempRefParam15);
	}
	...
}

VB.NET Code:

Partial Friend Class Form1
	Inherits System.Windows.Forms.Form
	...
	Dim qInfo As MSMQ.MSMQQueueInfo
	Dim q As MSMQ.MSMQQueue
	Dim msg As MSMQ.MSMQMessage
	Dim qInfos As MSMQ.MSMQQueueInfos
	Dim query As MSMQ.MSMQQuery
	Dim dispenser As MSMQ.MSMQTransactionDispenser
	Dim transaction As MSMQ.MSMQTransaction
	Private Sub Command1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command1.Click
		q = New MSMQ.MSMQQueue()
		query = New MSMQ.MSMQQuery()
		dispenser = New MSMQ.MSMQTransactionDispenser()
		transaction = New MSMQ.MSMQTransaction()
		qInfo = New MSMQ.MSMQQueueInfo()
		qInfo.PathName = ".\Private$\testqueue6"
		q = qInfo.Open(MSMQ.MQACCESS.MQ_SEND_ACCESS, MSMQ.MQSHARE.MQ_DENY_NONE)
		' Create a new message
		msg = New MSMQ.MSMQMessage()
		transaction = dispenser.BeginTransaction()
		msg.Body = "Hello, MSMQ were set with the properties ,'Delivery', 'Priority', 'Journal'!"
		msg.Delivery = MSMQ.MQMSGDELIVERY.MQMSG_DELIVERY_EXPRESS
		msg.Priority = MSMQ.MQPRIORITY.MQ_MAX_PRIORITY
		msg.Journal = 1
		msg.Send(q, transaction)
		transaction.Commit()
		MessageBox.Show("Message sent successfully", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
		q.Close()
		q = Nothing
		' Get Public Queues
		qInfos = query.LookupQueue(Nothing, "{00000000-0000-0000-0000-000000000004}")
	End Sub
End Class

8. MSWLess

Microsoft Windowless Controls Library

8.1. To System.Windows.Forms controls

Convert Microsoft's MSWLess to System.Windows.Forms .NET component controls.

By using this option the converted application will not have any reference to the COM Component.

Class

Maps to

MSWLess.WLCheck

System.Windows.Forms.CheckBox

MSWLess.WLCombo

System.Windows.Forms.ComboBox

MSWLess.WLText

System.Windows.Forms.TextBox

MSWLess.AlignmentConstants

System.Drawing.ContentAlignment

MSWLess.CheckValueConstants

System.Windows.Forms.CheckState

MSWLess.StyleComboConstants

System.Windows.Forms.ComboBoxStyle

MSWLess.ScrollBarsConstants

System.Windows.Forms.ScrollBars

Original VB6 code:

Begin VB.Form Form1 
...
	Begin MSWLess.WLText WLText1 
		Height          =   375
		Left            =   0
		TabIndex        =   2
		Top             =   1080
		Width           =   2055
		_ExtentX        =   3625
		_ExtentY        =   661
		_Version        =   393216
		Text            =   "WLText1"
		ForeColor       =   -2147483640
		BackColor       =   -2147483643
		BorderStyle     =   1
		Appearance      =   1
	End
	Begin MSWLess.WLCombo WLCombo1 
		Height          =   315
		Left            =   0
		TabIndex        =   1
		Top             =   720
		Width           =   2055
		_ExtentX        =   3625
		_ExtentY        =   556
		_Version        =   393216
		ListCount       =   9404
		Text            =   "WLCombo1"
 		ForeColor       =   -2147483640
		BackColor       =   -2147483643
		Appearance      =   1
		List            =   "Form1.frx":0000
	End
	Begin MSWLess.WLCheck WLCheck1 
		Height          =   495
		Left            =   120
		TabIndex        =   0
		Top             =   120
		Width           =   1815
		_ExtentX        =   3201
      		_ExtentY        =   873
 		_Version        =   393216
 		Caption         =   "WLCheck1"
		Appearance      =   1
	End
	...
...

C# code:

partial class Form1
{
	...
	public  System.Windows.Forms.TextBox WLText1;
	public  System.Windows.Forms.ComboBox WLCombo1;
	public  System.Windows.Forms.CheckBox WLCheck1;
	...
	private void  InitializeComponent()
	{
		...
		this.WLText1 = new System.Windows.Forms.TextBox();
		this.WLCombo1 = new System.Windows.Forms.ComboBox();
		this.WLCheck1 = new System.Windows.Forms.CheckBox();
		// 
		//WLText1
		// 
		this.WLText1.BackColor = System.Drawing.SystemColors.Window;
		this.WLText1.Font = new System.Drawing.Font("Microsoft Sans Serif", 8f, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0);
		this.WLText1.ForeColor = System.Drawing.SystemColors.WindowText;
		this.WLText1.Location = new System.Drawing.Point(0, 72);
		this.WLText1.Name = "WLText1";
		this.WLText1.Size = new System.Drawing.Size(137, 25);
		this.WLText1.TabIndex = 2;
		this.WLText1.Text = "WLText1";
		// 
		//WLCombo1
		// 
		this.WLCombo1.BackColor = System.Drawing.SystemColors.Window;
		this.WLCombo1.Font = new System.Drawing.Font("Microsoft Sans Serif", 8f, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0);
		this.WLCombo1.ForeColor = System.Drawing.SystemColors.WindowText;
		this.WLCombo1.Location = new System.Drawing.Point(0, 48);
		this.WLCombo1.Name = "WLCombo1";
		this.WLCombo1.Size = new System.Drawing.Size(137, 21);
		this.WLCombo1.TabIndex = 1;
		this.WLCombo1.Text = "WLCombo1";
		// 
		//WLCheck1
		// 
		this.WLCheck1.Font = new System.Drawing.Font("Microsoft Sans Serif", 8f, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0);
		this.WLCheck1.Location = new System.Drawing.Point(8, 8);
		this.WLCheck1.Name = "WLCheck1";
		this.WLCheck1.Size = new System.Drawing.Size(121, 33);
		this.WLCheck1.TabIndex = 0;
		this.WLCheck1.Text = "WLCheck1";
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents WLText1 As System.Windows.Forms.TextBox
	Public WithEvents WLCombo1 As System.Windows.Forms.ComboBox
	Public WithEvents WLCheck1 As System.Windows.Forms.CheckBox
	...
	Private Sub InitializeComponent()
		...
		Me.WLText1 = New System.Windows.Forms.TextBox
		Me.WLCombo1 = New System.Windows.Forms.ComboBox
		Me.WLCheck1 = New System.Windows.Forms.CheckBox
		'' 
		'WLText1
		' 
		Me.WLText1.BackColor = System.Drawing.SystemColors.Window
		Me.WLText1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0)
		Me.WLText1.ForeColor = System.Drawing.SystemColors.WindowText
		Me.WLText1.Location = New System.Drawing.Point(0, 72)
		Me.WLText1.Name = "WLText1"
		Me.WLText1.Size = New System.Drawing.Size(137, 25)
		Me.WLText1.TabIndex = 2
		Me.WLText1.Text = "WLText1"
		'' 
		' WLCombo1
		' 
		Me.WLCombo1.BackColor = System.Drawing.SystemColors.Window
		Me.WLCombo1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0)
		Me.WLCombo1.ForeColor = System.Drawing.SystemColors.WindowText
		Me.WLCombo1.Location = New System.Drawing.Point(0, 48)
		Me.WLCombo1.Name = "WLCombo1"
		Me.WLCombo1.Size = New System.Drawing.Size(137, 21)
		Me.WLCombo1.TabIndex = 1
		Me.WLCombo1.Text = "WLCombo1"
		''
		'WLCheck1
		' 
		Me.WLCheck1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0)
		Me.WLCheck1.Location = New System.Drawing.Point(8, 8)
		Me.WLCheck1.Name = "WLCheck1"
		Me.WLCheck1.Size = New System.Drawing.Size(121, 33)
 		Me.WLCheck1.TabIndex = 0
		Me.WLCheck1.Text = "WLCheck1"
		...

8.2. To COM Interop

Original VB6 code:

Begin VB.Form Form1 
...
	Begin MSWLess.WLText WLText1 
		Height          =   375
		Left            =   0
		TabIndex        =   2
		Top             =   1080
		Width           =   2055
		_ExtentX        =   3625
		_ExtentY        =   661
		_Version        =   393216
		Text            =   "WLText1"
		ForeColor       =   -2147483640
		BackColor       =   -2147483643
		BorderStyle     =   1
		Appearance      =   1
	End
	Begin MSWLess.WLCombo WLCombo1 
		Height          =   315
		Left            =   0
		TabIndex        =   1
		Top             =   720
		Width           =   2055
		_ExtentX        =   3625
		_ExtentY        =   556
		_Version        =   393216
		ListCount       =   9404
		Text            =   "WLCombo1"
 		ForeColor       =   -2147483640
		BackColor       =   -2147483643
		Appearance      =   1
		List            =   "Form1.frx":0000
	End
	Begin MSWLess.WLCheck WLCheck1 
		Height          =   495
		Left            =   120
		TabIndex        =   0
		Top             =   120
		Width           =   1815
		_ExtentX        =   3201
      		_ExtentY        =   873
 		_Version        =   393216
 		Caption         =   "WLCheck1"
		Appearance      =   1
	End
	...
...

C# code:

partial class Form1
{
	...
	public  AxMSWLess.AxWLText WLText1;
	public  AxMSWLess.AxWLCombo WLCombo1;
	public  AxMSWLess.AxWLCheck WLCheck1;
	...
	private void  InitializeComponent()
	{
		...
		this.WLText1 = new AxMSWLess.AxWLText();
		this.WLCombo1 = new AxMSWLess.AxWLCombo();
        		this.WLCheck1 = new AxMSWLess.AxWLCheck();
		// 
		//WLText1
		// 
		this.WLText1.Location = new System.Drawing.Point(0, 72);
		this.WLText1.Name = "WLText1";
 		this.WLText1.OcxState = (System.Windows.Forms.AxHost.State) resources.GetObject("WLText1.OcxState");
		this.WLText1.Size = new System.Drawing.Size(137, 25);
		this.WLText1.TabIndex = 2;
         	//
		//WLCombo1
		// 
		this.WLCombo1.Location = new System.Drawing.Point(0, 48);
		this.WLCombo1.Name = "WLCombo1";
		this.WLCombo1.OcxState = (System.Windows.Forms.AxHost.State) resources.GetObject("WLCombo1.OcxState");
		this.WLCombo1.Size = new System.Drawing.Size(137, 21);
		this.WLCombo1.TabIndex = 1;
		// 
		//WLCheck1
         	// 
 		this.WLCheck1.Location = new System.Drawing.Point(8, 8);
		this.WLCheck1.Name = "WLCheck1";
		this.WLCheck1.OcxState = (System.Windows.Forms.AxHost.State) resources.GetObject("WLCheck1.OcxState");
		this.WLCheck1.Size = new System.Drawing.Size(121, 33);
		this.WLCheck1.TabIndex = 0;
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents WLText1 As AxMSWLess.AxWLText
	Public WithEvents WLCombo1 As AxMSWLess.AxWLCombo
   	Public WithEvents WLCheck1 As AxMSWLess.AxWLCheck
	...
   	Private Sub InitializeComponent()
		...
		Me.WLText1 = New AxMSWLess.AxWLText
		Me.WLCombo1 = New AxMSWLess.AxWLCombo
		Me.WLCheck1 = New AxMSWLess.AxWLCheck
		''
		'WLText1
		' 
		Me.WLText1.Location = New System.Drawing.Point(0, 72)
		Me.WLText1.Name = "WLText1"
		Me.WLText1.OcxState = CType(resources.GetObject("WLText1.OcxState"), System.Windows.Forms.AxHost.State)
		Me.WLText1.Size = New System.Drawing.Size(137, 25)
		Me.WLText1.TabIndex = 2
		'' 
		'WLCombo1
		' 
		Me.WLCombo1.Location = New System.Drawing.Point(0, 48)
    		Me.WLCombo1.Name = "WLCombo1"
		Me.WLCombo1.OcxState = CType(resources.GetObject("WLCombo1.OcxState"), System.Windows.Forms.AxHost.State)
		Me.WLCombo1.Size = New System.Drawing.Size(137, 21)
		Me.WLCombo1.TabIndex = 1
		'' 
		'WLCheck1
		' 
		Me.WLCheck1.Location = New System.Drawing.Point(8, 8)
		Me.WLCheck1.Name = "WLCheck1"
		Me.WLCheck1.OcxState = CType(resources.GetObject("WLCheck1.OcxState"), System.Windows.Forms.AxHost.State)
		Me.WLCheck1.Size = New System.Drawing.Size(121, 33)
		Me.WLCheck1.TabIndex = 0
		...

9. MSXML2

Microsoft XML2 Library

9.1.To System.Xml classes

Convert Microsoft's MSXML2 library to System.Xml .NET classes.

By using this option the converted application will not have any reference to the COM Component.

Class

Maps to

MSXML2.DOMDocument

System.Xml.XmlDocument

MSXML2.DOMNodeType

System.Xml.XmlNodeType

MSXML2.IXMLDOMAttribute

System.Xml.XmlAttribute

MSXML2.IXMLDOMCDATASection

System.Xml.XmlCDataSection

MSXML2.IXMLDOMDocument

System.Xml.XmlDocument

MSXML2.IXMLDOMElement

System.Xml.XmlElement

MSXML2.IXMLDOMNamedNodeMap

System.Xml.XmlNamedNodeMap

MSXML2.IXMLDOMNode

System.Xml.XmlNode

MSXML2.IXMLDOMNodeList

System.Xml.XmlNodeList

MSXML2.IXMLDOMParseError

System.Exception

MSXML2.IXMLDOMText

System.Xml.XmlCharacterData

MSXML2.tagDOMNodeType

System.Xml.XmlNodeType

MSXML2.IXMLDOMCharacterData

System.Xml.XmlCharacterData

MSXML2.IXMLDOMDocumentFragment

System.Xml.XmlDocumentFragment

MSXML2.IXMLDOMComment

System.Xml.XmlComment

MSXML2.IXMLDOMEntity

System.Xml.XmlEntity

MSXML2.IXMLDOMEntityReference

System.Xml.XmlEntityReference

MSXML2.IXMLDOMImplementation

System.Xml.XmlImplementation

MSXML2.IXMLDOMNotation

System.Xml.XmlNotation

MSXML2.IXMLDOMProcessingInstruction

System.Xml.XmlProcessingInstruction

MSXML2.IXMLDOMDocumentType

System.Xml.XmlDocumentType

MSXML2.FreeThreadedDOMDocument

System.Xml.XmlDocument

MSXML2.FreeThreadedDOMDocument40

System.Xml.XmlDocument

MSXML2.DOMDocument40

System.Xml.XmlDocument

Original VB6 code:

Private Sub foo()

Dim doc As MSXML2.DOMDocument
Dim node As MSXML2.IXMLDOMNode
Dim newnode As MSXML2.IXMLDOMNode
Dim newclonednode As MSXML2.IXMLDOMNode

Set newnode = doc.appendChild(node)
Set newclonednode = doc.cloneNode(True)
newnode.appendChild newclonednode

Dim n As MSXML2.IXMLDOMNode
Dim theNodeList As MSXML2.IXMLDOMNodeList

Set theNodeList = doc.selectNodes("Norway")

For Each n In theNodeList
	n.Attributes(0).nodeValue = "Norway"
Next n

End Sub

C# code:

partial class Form1
{
	...
	private void  foo()
	{       
		XmlDocument doc = null;
		XmlNode node = null;
		XmlNode newnode = doc.AppendChild(node);
		XmlNode newclonednode = doc.CloneNode(true);
		newnode.AppendChild(newclonednode);
		XmlNodeList theNodeList = doc.SelectNodes("Norway");               
		foreach (XmlNode n in theNodeList)
		{
			n.Attributes.Item(0).Value = "Norway";
		}
	}
}

VB.NET code:

Partial Class Form1
	...
	Private Sub foo()      
		Dim doc As XmlDocument
		Dim node As XmlNode
		Dim newnode As XmlNode = doc.AppendChild(node)
		Dim newclonednode As XmlNode = doc.CloneNode(True)
		newnode.AppendChild(newclonednode)
		Dim theNodeList As XmlNodeList = doc.SelectNodes("Norway")
		For Each n As XmlNode In theNodeList
			n.Attributes.Item(0).Value = "Norway"
		Next n      
	End Sub

9.2. To COM Interop

Original VB6 code:

Private Sub foo()

Dim doc As MSXML2.DOMDocument
Dim node As MSXML2.IXMLDOMNode
Dim newnode As MSXML2.IXMLDOMNode
Dim newclonednode As MSXML2.IXMLDOMNode

Set newnode = doc.appendChild(node)
Set newclonednode = doc.cloneNode(True)
newnode.appendChild newclonednode

Dim n As MSXML2.IXMLDOMNode
Dim theNodeList As MSXML2.IXMLDOMNodeList

Set theNodeList = doc.selectNodes("Norway")

For Each n In theNodeList
	n.Attributes(0).nodeValue = "Norway"
Next n

End Sub

C# code:

partial class Form1
{
	...
	private void  foo()
	{               
		MSXML2.DOMDocument doc = null;
		MSXML2.IXMLDOMNode node = null;               
		MSXML2.IXMLDOMNode newnode = doc.appendChild(node);
		MSXML2.IXMLDOMNode newclonednode = doc.cloneNode(true);
		newnode.appendChild(newclonednode);               
		MSXML2.IXMLDOMNodeList theNodeList = doc.selectNodes("Norway");
		foreach (MSXML2.IXMLDOMNode n in theNodeList)
		{
			//UPGRADE_WARNING: (1037) Couldn't resolve default property of object n.Attributes().nodeValue.
			n.attributes[0].nodeValue = "Norway";
		}
	}
}

VB.NET code:

Partial Class Form1
	...
	Private Sub foo()      
		Dim doc As MSXML2.DOMDocument
		Dim node As MSXML2.IXMLDOMNode
		Dim newnode As MSXML2.IXMLDOMNode = doc.appendChild(node)
		Dim newclonednode As MSXML2.IXMLDOMNode = doc.cloneNode(True)
		newnode.appendChild(newclonednode)
    Dim theNodeList As MSXML2.IXMLDOMNodeList = doc.selectNodes("Norway")
		For Each n As MSXML2.IXMLDOMNode In theNodeList
			'UPGRADE_WARNING: (1037) Couldnt resolve default property of object n.Attributes().nodeValue.'
			n.attributes(0).nodeValue = "Norway"
		Next n      
	End Sub
	...

10. RichTextBox

10.1. To System.Windows.Forms.RichTextBox

Convert RichTextBox to a .NET component control.

By using this option the converted application will not have any reference to the COM Component.

Class

Maps to

RichTextLib.RichTextBox

System.Windows.Forms.RichTextBox

RichTextLib.AppearanceConstants

System.Windows.Forms.BorderStyle

RichTextLib.BorderStyleConstants

System.Windows.Forms.BorderStyle

RichTextLib.ScrollBarsConstants

System.Windows.Forms.RichTextBoxScrollBars

RichTextLib.FindConstants

System.Windows.Forms.RichTextBoxFinds

RichTextLib.LoadSaveConstants

System.Windows.Forms.RichTextBoxStreamType

RichTextLib.SelAlignmentConstants

System.Windows.Forms.HorizontalAlignment

RichTextLib.MousePointerConstants

System.Windows.Forms.Cursor

Original VB6 code:

Begin VB.Form Form1 
...
	Begin RichTextLib.RichTextBox RichTextBox1 
		Height          =   615
		Left            =   120
		TabIndex        =   0
		Top             =   120
		Width           =   2175
		_ExtentX        =   3836
		_ExtentY        =   1085
		_Version        =   393217
		TextRTF         =   $"Form1.frx":0000
	End
...

C# code:

partial class Form1
{
	...
	public  System.Windows.Forms.RichTextBox RichTextBox1;
	...
	private void  InitializeComponent()
	{
		...
		this.RichTextBox1 = new System.Windows.Forms.RichTextBox();
		this.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle;
		this.RichTextBox1.Font = new System.Drawing.Font("Microsoft Sans Serif", 8f, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0);
		this.RichTextBox1.Location = new System.Drawing.Point(8, 8);
		this.RichTextBox1.Name = "RichTextBox1";
		this.RichTextBox1.Rtf = resources.GetString("RichTextBox1.TextRTF");
		this.RichTextBox1.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None;
		this.RichTextBox1.Size = new System.Drawing.Size(145, 41);
		this.RichTextBox1.TabIndex = 0;
		...
	}
}

VB.NET code:

Partial Class Form1
	...
	Public WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
	...
	Private Sub InitializeComponent()
		...
		Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
		Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.RichTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0)
		Me.RichTextBox1.Location = New System.Drawing.Point(8, 8)
		Me.RichTextBox1.Name = "RichTextBox1"
		Me.RichTextBox1.Rtf = resources.GetString("RichTextBox1.TextRTF")
		Me.RichTextBox1.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
		Me.RichTextBox1.Size = New System.Drawing.Size(145, 41)
		Me.RichTextBox1.TabIndex = 0
		...

10.2. To COM Interop

Original VB6 code:

Begin VB.Form Form1 
...
	Begin RichTextLib.RichTextBox RichTextBox1 
		Height          =   615
		Left            =   120
		TabIndex        =   0
		Top             =   120
		Width           =   2175
		_ExtentX        =   3836
		_ExtentY        =   1085
		_Version        =   393217
		TextRTF         =   $"Form1.frx":0000
	End
...

C# code:

partial class Form1
{
	...
	public  AxRichTextLib.AxRichTextBox RichTextBox1;
	...
	private void  InitializeComponent()
	{
		...
		this.RichTextBox1 = new AxRichTextLib.AxRichTextBox();
		this.RichTextBox1.Location = new System.Drawing.Point(8, 8);
		this.RichTextBox1.Name = "RichTextBox1";
		this.RichTextBox1.OcxState = (System.Windows.Forms.AxHost.State) resources.GetObject("RichTextBox1.OcxState");
		this.RichTextBox1.ScrollBars = RichTextLib.ScrollBarsConstants.rtfNone;
		this.RichTextBox1.Size = new System.Drawing.Size(145, 41);
		this.RichTextBox1.TabIndex = 0;
		...
	}
}

VB.NET code:

Partial Class Form1
   ...
   Public WithEvents RichTextBox1 As AxRichTextLib.AxRichTextBox
   ...
   Private Sub InitializeComponent()
      ...
      Me.RichTextBox1 = New AxRichTextLib.AxRichTextBox
      Me.RichTextBox1.Location = New System.Drawing.Point(8, 8)
      Me.RichTextBox1.Name = "RichTextBox1"
      Me.RichTextBox1.OcxState = CType(resources.GetObject("RichTextBox1.OcxState"), System.Windows.Forms.AxHost.State)
      Me.RichTextBox1.ScrollBars = RichTextLib.ScrollBarsConstants.rtfNone
      Me.RichTextBox1.Size = New System.Drawing.Size(145, 41)
      Me.RichTextBox1.TabIndex = 0
      ...

11. Scripting

11.1. To .NET classes

This feature maps the "Scripting.Dictionary" class to a .NET "OrderedDictionary". A dictionary is an object that stores key/item pairs. Each item is associated with a unique key which is usually an integer or a string. For full information about the vb6 class you can visit: https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/dictionary-object

This option converts the "Scripting.Dictionary" class to a .NET "OrderedDictionary". Members are also mapped to OrderedDictionary members.

General Description:

An OrderedDictionary is a dictionary (hash table) that preserves the order (as VB6 does) in which the keys are inserted. A regular dictionary does not track the insertion order.

Original VB6 code:

Public Sub Foo(dict As Scripting.Dictionary)    
	Call dict.Add("A", 1): Call dict.Add("B", 2): Call dict.Add("C", 3)
	If dict.Exists("C") Then
		MsgBox dict.item("C")
	End If
	For Each value In dict.keys
		MsgBox value 'prints A B C'
	Next
	For Each value In dict.Items
		MsgBox value 'prints 1 2 3'
	Next
End Sub

C# code:

public static void Foo(OrderedDictionary dict)
{
	dict.Add("A", 1);  dict.Add("B", 2);  dict.Add("C", 3);
	if (dict.Contains("C"))
	{
		MessageBox.Show(Convert.ToString(dict["C"]));
	}
	foreach (object value in dict.Keys)
	{
		MessageBox.Show(Convert.ToString(value)); //prints A B C
	}
	foreach (object value in dict.Values)
	{
		MessageBox.Show(Convert.ToString(value)); //prints 1 2 3
	}
}

VB.NET code:

Public Sub Foo(ByVal dict As OrderedDictionary)
	dict.Add("A", 1) : dict.Add("B", 2) : dict.Add("C", 3)
	If dict.Contains("C") Then
		MessageBox.Show(CStr(dict.Item("C")))
	End If
	For Each value As Object In dict.Keys
		MessageBox.Show(CStr(value), My.Application.Info.Title) 'prints A B C'
	Next value
	For Each value As Object In dict.Values
		MessageBox.Show(CStr(value), My.Application.Info.Title) 'prints 1 2 3'
	Next value
End Sub

11.2. To COM Interop

Original VB6 code:

Public Sub Foo(dict As Scripting.Dictionary)    
	Call dict.Add("A", 1): Call dict.Add("B", 2): Call dict.Add("C", 3)
	If dict.Exists("C") Then
		MsgBox dict.item("C")
	End If
	For Each value In dict.keys
		MsgBox value 'prints A B C'
	Next
	For Each value In dict.Items
		MsgBox value 'prints 1 2 3'
	Next
End Sub

C# code:

public static void Foo(Scripting.Dictionary dict)
{
	object tempRefParam = "A"; object tempRefParam2 = 1;
	dict.Add(ref tempRefParam, ref tempRefParam2);
	object tempRefParam3 = "B"; object tempRefParam4 = 2;
	dict.Add(ref tempRefParam3, ref tempRefParam4);
	object tempRefParam5 = "C"; object tempRefParam6 = 3;
	dict.Add(ref tempRefParam5, ref tempRefParam6);
	object tempRefParam7 = "C";
	if (dict.Exists(ref tempRefParam7))
	{
		object tempRefParam8 = "C";
		MessageBox.Show(Convert.ToString(dict.get_Item(ref tempRefParam8)));
	}
	foreach (object value in (System.Collections.IEnumerable) dict.Keys())
	{
		MessageBox.Show(Convert.ToString(value)); //prints A B C
	}
	foreach (object value in (System.Collections.IEnumerable) dict.Items())
	{
		MessageBox.Show(Convert.ToString(value)); //prints 1 2 3
	}
}

VB.NET code:

Public Sub Foo(ByVal dict As Scripting.Dictionary)
	dict.Add("A", 1) : dict.Add("B", 2) : dict.Add("C", 3)
	If dict.Exists("C") Then
		MessageBox.Show(CStr(dict.Item("C")))
	End If
	For Each value As Object In dict.Keys()
		MessageBox.Show(CStr(value)) 'prints A B C'
	Next value
	For Each value As Object In dict.Items()
		MessageBox.Show(CStr(value)) 'prints 1 2 3'
	Next value
End Sub

12. SHDocVw

Microsoft Internet Controls Library

12.1. To System.Windows.Forms.WebBrowser

Convert the controls and classes contained in the shdocvw.dll to .NET Native classes.

General Description:

The Microsoft Internet Controls (SHDocVw) is a set of controls and classes that enable building web/DHTML applications in Visual Basic 6. WebBrowser and InternetExplorer are controls of this library.

Class

Maps to

WebBrowser

System.Windows.Forms.WebBrowser

SecureLockIconConstants

System.Windows.Forms.WebBrowserEncryptionLevel

tagREADYSTATE

System.Windows.Forms.WebBrowserReadyState

InternetExplorer

System.Windows.Forms.WebBrowser

Original VB6 code:

Private Sub Command1_Click() 'Go Back Button'
	WebBrowser1.GoBack() 'Go Back'
End Sub

Private Sub Command2_Click() 'Go Forward Button'
	WebBrowser1.GoForward() 'Go Forward'
End Sub

Private Sub Form_Load()
	WebBrowser1.Navigate("www.artinsoft.com")
End Sub

Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
	Select Case Command
		Case 1 'Forward'
			Command2.Enabled = True
		Case 2 'Back'
			Command1.Enabled = True
	End Select
End Sub

C# code:

private void Command1_Click(Object eventSender, EventArgs eventArgs) //Go Back Button
{
	WebBrowser1.GoBack(); //Go Back
}

private void Command2_Click(Object eventSender, EventArgs eventArgs) //Go Forward Button
{
	WebBrowser1.GoForward(); //Go Forward
}

//UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load event and has a new behavior.
private void Form1_Load(Object eventSender, EventArgs eventArgs)
{
WebBrowser1.Navigate("www.artinsoft.com");
}

//UPGRADE_WARNING: (2050) SHDocVw.WebBrowser Event WebBrowser1.CommandStateChange was not upgraded.
private void WebBrowser1_CommandStateChange(int Command, bool Enable)
{
switch(Command)
	{
		case 1 :  //Forward 
			Command2.Enabled = true; 
			break;
case 2 :  //Back 
			Command1.Enabled = true; 
			break;
		}
	}
}

VB.NET code:

Private Sub Command1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command1.Click 'Go Back Button'
	WebBrowser1.GoBack() 'Go Back'
End Sub

Private Sub Command2_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command2.Click 'Go Forward Button'
	WebBrowser1.GoForward() 'Go Forward'
End Sub

'UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load event and has a new behavior.'
Private Sub Form1_Load(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles MyBase.Load
	WebBrowser1.Navigate("www.artinsoft.com")
End Sub

'UPGRADE_WARNING: (2050) SHDocVw.WebBrowser Event WebBrowser1.CommandStateChange was not upgraded.'
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Integer, ByVal Enable As Boolean)
	Select Case Command
		Case 1 'Forward'
			Command2.Enabled = True
		Case 2 'Back'
			Command1.Enabled = True
	End Select
End Sub

12.2. To COM Interop

Original VB6 code:

Private Sub Command1_Click() 'Go Back Button'
	WebBrowser1.GoBack() 'Go Back'
End Sub

Private Sub Command2_Click() 'Go Forward Button'
	WebBrowser1.GoForward() 'Go Forward'
End Sub

Private Sub Form_Load()
	WebBrowser1.Navigate("www.artinsoft.com")
End Sub

Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
	Select Case Command
		Case 1 'Forward'
			Command2.Enabled = True
		Case 2 'Back'
			Command1.Enabled = True
	End Select
End Sub

C# code:

private void Command1_Click(Object eventSender, EventArgs eventArgs) //Go Back Button
{
	WebBrowser1.GoBack(); //Go Back
}

private void Command2_Click(Object eventSender, EventArgs eventArgs) //Go Forward Button
{ 
	WebBrowser1.GoForward(); //Go Forward
}

//UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load event and has a new behavior.
private void Form1_Load(Object eventSender, EventArgs eventArgs)
{
	WebBrowser1.Navigate(new URI("www.artinsoft.com"));
}

//UPGRADE_WARNING: (2050) SHDocVw.WebBrowser Event WebBrowser1.CommandStateChange was not upgraded.
private void WebBrowser1_CommandStateChange(int Command, bool Enable)
{
	switch(Command)
	{
		case 1 :  //Forward 
			Command2.Enabled = true; 
			break;
		case 2 :  //Back 
			Command1.Enabled = true; 
			break;
	}
}

VB.NET code:

Private Sub Command1_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command1.Click 'Go Back Button'
	WebBrowser1.GoBack() 'Go Back'
End Sub

Private Sub Command2_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles Command2.Click 'Go Forward Button'
	WebBrowser1.GoForward() 'Go Forward'
End Sub

'UPGRADE_WARNING: (2080) Form_Load event was upgraded to Form_Load event and has a new behavior.'
Private Sub Form1_Load(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles MyBase.Load
	WebBrowser1.Navigate(New URI("www.artinsoft.com"))
End Sub

'UPGRADE_WARNING: (2050) SHDocVw.WebBrowser Event WebBrowser1.CommandStateChange was not upgraded.'
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Integer, ByVal Enable As Boolean)
	Select Case Command
		Case 1 'Forward'
			Command2.Enabled = True
		Case 2 'Back'
			Command1.Enabled = True
	End Select
End Sub

13. Shell32

13.1. To System.Diagnostics Methods

Convert the API calls of Shell32 to their equivalents in System.Diagnostics.

Operation

Purpose

Edit

Launches an editor and opens the file for editing.

Explore

Explores the folder listed in the file parameter.

Find

Starts the find utility at the specified directory.

Open

Opens the file using the appropriate default application. It can also executes processes and applications.

Prints the file.

Original VB6 code:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
	(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
	ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute 0, "open", "C:\file.ext", Empty, Empty, 1

C# code:

System.Diagnostics.ProcessStartInfo startInfo = new System.Diagnostics.ProcessStartInfo();
startInfo.UseShellExecute = true;
startInfo.CreateNoWindow = true;
startInfo.Verb = "open";
startInfo.FileName = "C:\\file.ext";
startInfo.Arguments = "";
startInfo.WorkingDirectory = "";
startInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal;

System.Diagnostics.Process.Start(startInfo);

VB.NET code:

Dim startInfo As New System.Diagnostics.ProcessStartInfo()
startInfo.UseShellExecute = True
startInfo.CreateNoWindow = True
startInfo.Verb = "open"
startInfo.FileName = "C:\file.ext"
startInfo.Arguments = ""
startInfo.WorkingDirectory = ""
startInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal

System.Diagnostics.Process.Start(startInfo)

13.2. To PInvoke

This option will port the API call into the resulting application via a support project.

The API binary file needs to be present in the resulting application.
See also: Windows API to PInvoke

General Description:

This optional feature will take the API declaration and create an interoperability code wrapper to make it visible from the managed code. This means the call’s functionality will remain the same since it will use the same API but the resulting application will depend on the API binary file.

Original VB6 code:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
	(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
	ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute 0, "open", "C:\file.ext", Empty, Empty, 1

C# code:

string tempRefParam = "open";
string tempRefParam2 = "C:\\file.ext";
string tempRefParam3 = "";
string tempRefParam4 = "";

ProjectSupport.PInvoke.SafeNative.shell32.ShellExecute(0, ref tempRefParam, ref tempRefParam2, ref tempRefParam3, ref tempRefParam4, 1);

VB.NET code:

ProjectSupport.SafeNative.shell32.ShellExecute(0, "open", "C:\file.ext", "", "", 1)

14. VB Script Regex

The VB Script RegExp class compares strings with specific text patterns known as regular expressions.

14.1. To System.Text.RegularExpressions and helpers

This optional feature allows the VB6 AI Migrator to convert VB Script RegExp to System.Text.RegularExpressions library and helpers.

This option converts VB Script RegExp by using helper classes, achieving very high automation levels and a similar VB6 behavior.

By using this option the converted application will not have any references to the COM Component.

Class

Maps to

VBScript_RegExp_55.Regexp

UpgradeHelpers.Utils.ScriptRegexHelper

VBScript_RegExp_55.MatchCollection

System.Text.RegularExpressions.MatchCollection

VBScript_RegExp_55.Match

System.Text.RegularExpressions.Match

Original VB6 Code:

Private Sub cmdSearch_Click()
    Dim strInput As String
    Dim regex As RegExp
    Dim matches As MatchCollection
    Dim match As match
    
    strInput = txtInput.text
    
    'Create Regex object
    Set regex = New RegExp
    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = "(\w+)"
    
    'Search all coincidences
    Set matches = regex.Execute(strInput)
    
    'Show coincidences found
    Dim i As Integer
    For Each match In matches
        MsgBox "Result " & i + 1 & ": " & match.Value
        i = i + 1
    Next match
End Sub

C# code:

private void cmdSearch_Click(Object eventSender, EventArgs eventArgs)
{
	Match match = null;

	string strInput = txtInput.Text;

	//Create Regex object
	ScriptRegexHelper regex = new ScriptRegexHelper();
	//UPGRADE_ISSUE: (2064) VBScript_RegExp_55.RegExp property regex.Global was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2064
	regex.setGlobal(true);
	regex.IgnoreCase = true;
	regex.Pattern = "(\\w+)";

	//Search all coincidences
	MatchCollection matches = (MatchCollection) regex.Execute(strInput);

	//Show coincidences found
	int i = 0;
	foreach (Match matchIterator in matches)
	{
		match = matchIterator;
		MessageBox.Show($"Result {(i + 1).ToString()}: {match.Value}", AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
		i++;
		//match
		match = default(Match);
	}
}

VB.NET code:

Private Sub cmdSearch_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles cmdSearch.Click
	Dim match As Match

	Dim strInput As String = txtInput.Text

	'Create Regex object
	Dim regex As New ScriptRegexHelper()
	'UPGRADE_ISSUE: (2064) VBScript_RegExp_55.RegExp property regex.Global was not upgraded. More Information: https://docs.mobilize.net/vbuc/ewis#2064
	regex.setGlobal(True)
	regex.IgnoreCase = True
	regex.Pattern = "(\w+)"

	'Search all coincidences
	Dim matches As MatchCollection = regex.Execute(strInput)

	'Show coincidences found
	Dim i As Integer
	For	Each matchIterator As Match In matches
		match = matchIterator
		MessageBox.Show("Result " & i + 1 & ": " & match.Value, My.Application.Info.Title)
		i += 1
		'match
		match = CType(Nothing, Match)
	Next matchIterator
End Sub

14.2. To COM Interop

Original VB6 Code:

Private Sub cmdSearch_Click()
    Dim strInput As String
    Dim regex As RegExp
    Dim matches As MatchCollection
    Dim match As match
    
    strInput = txtInput.text
    
    'Create Regex object
    Set regex = New RegExp
    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = "(\w+)"
    
    'Search all coincidences
    Set matches = regex.Execute(strInput)
    
    'Show coincidences found
    Dim i As Integer
    For Each match In matches
        MsgBox "Result " & i + 1 & ": " & match.Value
        i = i + 1
    Next match
End Sub

C# code:

private void cmdSearch_Click(Object eventSender, EventArgs eventArgs)
{
	VBScript_RegExp_55.Match match = null;

	string strInput = txtInput.Text;

	//Create Regex object
	VBScript_RegExp_55.RegExp regex = new VBScript_RegExp_55.RegExp();
	regex.Global = true;
	regex.IgnoreCase = true;
	regex.Pattern = "(\\w+)";

	//Search all coincidences
	VBScript_RegExp_55.MatchCollection matches = (VBScript_RegExp_55.MatchCollection) regex.Execute(strInput);

	//Show coincidences found
	int i = 0;
	foreach (VBScript_RegExp_55.Match matchIterator in matches)
	{
		match = matchIterator;
		MessageBox.Show($"Result {(i + 1).ToString()}: {match.Value}", AssemblyHelper.GetTitle(System.Reflection.Assembly.GetExecutingAssembly()));
		i++;
		//match
		match = default(VBScript_RegExp_55.Match);
	}
}

VB.NET Code:

Private Sub cmdSearch_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles cmdSearch.Click
	Dim match As VBScript_RegExp_55.Match

	Dim strInput As String = txtInput.Text

	'Create Regex object
	Dim regex As New VBScript_RegExp_55.RegExp()
	regex.Global = True
	regex.IgnoreCase = True
	regex.Pattern = "(\w+)"

	'Search all coincidences
	Dim matches As VBScript_RegExp_55.MatchCollection = regex.Execute(strInput)

	'Show coincidences found
	Dim i As Integer
	For	Each matchIterator As VBScript_RegExp_55.Match In matches
		match = matchIterator
		MessageBox.Show("Result " & i + 1 & ": " & match.Value, My.Application.Info.Title)
		i += 1
		'match
		match = CType(Nothing, VBScript_RegExp_55.Match)
	Next matchIterator
End Sub

PreviousGrids NextSheridan

Last updated 4 months ago

Was this helpful?

hashtag1. MSACAL

hashtag1.1. To System.Windows.Forms.MonthCalendar

hashtag1.2. To COM Interop

hashtag2. MSComCt2

hashtag2.1. To native .NET component (System.Windows.Forms)

hashtag2.2. To COM Interop

hashtag3. MSComCtl

hashtag3.1. To native .NET component (System.Windows.Forms)

hashtag3.2. To COM Interop

hashtag4. MSComDlg

hashtag4.1. To native .NET component (System.Windows.Forms)

hashtag4.2. To COM Interop

hashtag5. DataCombo

hashtag5.1. To System.Windows.Forms.ComboBox

hashtag5.2. To COM Interop

hashtag6. MSMask

hashtag6.1. To System.Windows.Forms.MaskedTextBox

hashtag6.2. To COM Interop

hashtag7. MSMQ

hashtag7.1. To System.Messaging Library

hashtagOriginal VB6 Code:

hashtagC# Code:

hashtagVB.NET Code:

hashtag7.2. To COM Interop

hashtagOriginal VB6 Code:

hashtagC# Code:

hashtagVB.NET Code:

hashtag8. MSWLess

hashtag8.1. To System.Windows.Forms controls

hashtag8.2. To COM Interop

hashtag9. MSXML2

hashtag9.1.To System.Xml classes

hashtag9.2. To COM Interop

hashtag10. RichTextBox

hashtag10.1. To System.Windows.Forms.RichTextBox

hashtag10.2. To COM Interop

hashtag11. Scripting

hashtag11.1. To .NET classes

hashtag11.2. To COM Interop

hashtag12. SHDocVw

hashtag12.1. To System.Windows.Forms.WebBrowser

hashtag12.2. To COM Interop

hashtag13. Shell32

hashtag13.1. To System.Diagnostics Methods

hashtag13.2. To PInvoke

hashtag14. VB Script Regex

hashtag14.1. To System.Text.RegularExpressions and helpers

hashtagOriginal VB6 Code:

hashtagC# code:

hashtagVB.NET code:

hashtag14.2. To COM Interop

hashtagOriginal VB6 Code:

hashtagC# code:

hashtagVB.NET Code:

1. MSACAL

1.1. To System.Windows.Forms.MonthCalendar

1.2. To COM Interop

2. MSComCt2

2.1. To native .NET component (System.Windows.Forms)

2.2. To COM Interop

3. MSComCtl

3.1. To native .NET component (System.Windows.Forms)

3.2. To COM Interop

4. MSComDlg

4.1. To native .NET component (System.Windows.Forms)

4.2. To COM Interop

5. DataCombo

5.1. To System.Windows.Forms.ComboBox

5.2. To COM Interop

6. MSMask

6.1. To System.Windows.Forms.MaskedTextBox

6.2. To COM Interop

7. MSMQ

7.1. To System.Messaging Library

Original VB6 Code:

C# Code:

VB.NET Code:

7.2. To COM Interop

Original VB6 Code:

C# Code:

VB.NET Code:

8. MSWLess

8.1. To System.Windows.Forms controls

8.2. To COM Interop

9. MSXML2

9.1.To System.Xml classes

9.2. To COM Interop

10. RichTextBox

10.1. To System.Windows.Forms.RichTextBox

10.2. To COM Interop

11. Scripting

11.1. To .NET classes

11.2. To COM Interop

12. SHDocVw

12.1. To System.Windows.Forms.WebBrowser

12.2. To COM Interop

13. Shell32

13.1. To System.Diagnostics Methods

13.2. To PInvoke

14. VB Script Regex

14.1. To System.Text.RegularExpressions and helpers

Original VB6 Code:

C# code:

VB.NET code:

14.2. To COM Interop

Original VB6 Code:

C# code:

VB.NET Code: