Dear Kevin, I covert it. but there was many errors. Pls, Give any help to solve it. Regards Kusal '/////////////////////////////////////////////////////////////////////// Option Strict Off Option Explicit On Friend Class MainForm 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() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(MainForm)) Me.components = New System.ComponentModel.Container() Me.ToolTip1 = New System.Windows.Forms.ToolTip(components) Me.ToolTip1.Active = True Me.Command1 = New System.Windows.Forms.Button Me.Text = "Sample Program" Me.ClientSize = New System.Drawing.Size(218, 115) Me.Location = New System.Drawing.Point(4, 30) Me.StartPosition = System.Windows.Forms.FormStartPosition.WindowsDefaultLocation Me.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.BackColor = System.Drawing.SystemColors.Control Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable Me.ControlBox = True Me.Enabled = True Me.KeyPreview = False Me.MaximizeBox = True Me.MinimizeBox = True Me.