Листинг. Результат работы Migration Wizard VB .NET

Option Strict Off  
Option Explicit On  
Imports VB = Microsoft.VisualBasic  
Friend Class Form1  
     Inherits System.Windows.Forms.Form  
#Region "Windows Form Designer generated code "  
   Public Sub New()  
     MyBase.New()  
     If m_vb6FormDefInstance Is Nothing Then  
       If m_InitializingDefInstance Then  
          m_vb6FormDefInstance = Me  
       Else  
         Try   
           'For the start-up form, the first instance created is the default instance.  
           If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then  
              m_vb6FormDefInstance = Me  
           End If  
         Catch  
         End Try  
       End If  
     End If  
     'This call is required by the Windows Form Designer.  
     InitializeComponent()  
   End Sub  
   
   'Form overrides dispose to clean up the component list.  
    Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)  
      If Disposing Then  
        If Not components Is Nothing Then  
          components.Dispose()  
        End If  
      End If  
      MyBase.Dispose(Disposing)  
     End Sub  
     'Required by the Windows Form Designer  
     Private components As System.ComponentModel.IContainer  
     Public ToolTip1 As System.Windows.Forms.ToolTip  
     Public WithEvents Command1 As System.Windows.Forms.Button  
     'NOTE: The following procedure is required by the Windows Form Designer  
     'It can be modified using the Windows Form Designer.  
     'Do not modify it using the code editor.  
      Private Sub InitializeComponent()  
        Me.components = New System.ComponentModel.Container()  
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)  
        Me.Command1 = New System.Windows.Forms.Button()  
        Me.SuspendLayout()  
        '  
        'Command1  
        '  
        Me.Command1.BackColor = System.Drawing.SystemColors.Control  
        Me.Command1.Cursor = System.Windows.Forms.Cursors.Default  
        Me.Command1.ForeColor = System.Drawing.SystemColors.ControlText  
        Me.Command1.Location = New System.Drawing.Point(50, 40)  
        Me.Command1.Name = "Command1"  
        Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No  
        Me.Command1.Size = New System.Drawing.Size(151, 41)  
        Me.Command1.TabIndex = 0  
        Me.Command1.Text = "Command1"  
        '  
        'Form1  
        '  
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15)  
        Me.ClientSize = New System.Drawing.Size(312, 208)  
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Command1})  
        Me.Location = New System.Drawing.Point(4, 28)  
        Me.Name = "Form1"  
        Me.Text = "Form1"  
        Me.ResumeLayout(False)  
    End Sub  
#End Region   
#Region "Upgrade Support "  
   Private Shared m_vb6FormDefInstance As Form1  
   Private Shared m_InitializingDefInstance As Boolean  
   Public Shared Property DefInstance() As Form1  
     Get  
       If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then  
         m_InitializingDefInstance = True  
         m_vb6FormDefInstance = New Form1()  
         m_InitializingDefInstance = False  
       End If  
       DefInstance = m_vb6FormDefInstance  
     End Get
     Set  
       m_vb6FormDefInstance = Value  
     End Set  
   End Property  
#End Region   
       
  Private Sub Command1_Click _  
    (ByVal eventSender As System.Object, _  
    ByVal eventArgs As System.EventArgs) _  
    Handles Command1.Click  
      Dim NowTime As Integer  
      NowTime = VB.Timer()  
      MsgBox(NowTime)  
  End Sub  
End Class