VB6 　 VB.NET ----------------------------------------------------- DoEvents 　System.Windows.Forms.Application.DoEvents() Command1.BackColor = vbRed 　Command1.BackColor = System.Drawing.Color.Red Command1.BackColor = System.Drawing.Color.FromARGB(&H80C0FF) ComboBox1.AddItem "one" 　ComboBox1.Items.Add("one") Command1.BackColor = &H80C0FF 　Command1.BackColor = System.Drawing.ColorTranslator.FromOle(&H80C0FF&) Form1.Caption = "Sample" 　Form1.DefInstance.Text = "Sample" Form1.Top 　Form1.DefInstance.Top MsgBox "message",vbInformation,"title" 　MsgBox("message",MsgBoxStyle.Information,"title") Form1.Height = 3500 　Form1.DefInstance.Height = VB6.TwipsToPixelsY(3500) Set MyObject = Command1 　MyObject = Command1 Text1.SetFocus 　Text1.Focus() Command1.ToolTipText = "click me" 　ToolTip1.SetToolTip(Command1,"click me") Dim objAbout As AboutForm 　Dim objAbout As Pharfruminsain_AboutForm_v1r0.AboutForm sPath = App.Path 　sPath = Application.StartupPath Private Sub Form_Unload(Cancel As Integer) 　Private Sub Form1_Closed(....) Handles MyBase.Closed List1.RemoveItem (0) 　ListBox1.Items.Remove(0) Dim arOne(10) As String 　Dim arOne As New ArrayList(10) Print #1,"sample text" 　PrintLine(1,"sample text") Open "c:/myfile.txt" For Input As #1 　FileOpen(1,"c:/myfile.txt",OpenMode.Input) Line Input #1,sTemp 　sTemp = LineInput(1) VB6: s=App.Comments VB.Net: Imports System.Diagnostics Imports System.Reflection s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).Comments VB6: s=App.CompanyName VB.Net: Imports System.Diagnostics Imports System.Reflection s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).CompanyName) VB6: s=App.EXEName VB.Net: Imports System.Reflection With New System.IO.FileInfo([Assembly].GetExecutingAssembly.Location) s=.Name.Substring(0,.Name.Length - .Extension.Length) End With or s=System.AppDomain.CurrentDomain.FriendlyName Note: this includes the extension which would need to be parsed. VB6: s=App.FileDescription VB.Net: Imports System.Diagnostics Imports System.Reflection s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileDescription) VB6: App.HelpFile VB.Net: No direct replacement VB6: i=App.hInstance VB.Net: Imports System.Runtime.InteropServices i=Marshal.GetHINSTANCE([Assembly].GetExecutingAssembly.GetModules()(0)).ToInt32 VB6: s=App.LegalCopyright VB.Net: Imports System.Diagnostics Imports System.Reflection s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).LegalCopyright) VB6: s=App.LegalTrademarks VB.Net: Imports System.Diagnostics Imports System.Reflection s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).LegalTrademarks) VB6: App.LogMode App.LogPath VB.Net: No direct replacement; see the EventLog object VB6: i=App.Major VB.Net: Imports System.Diagnostics Imports System.Reflection i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileMajorPart) VB6: i=App.Minor VB.Net: Imports System.Diagnostics Imports System.Reflection i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileMinorPart) VB6: App.NonModalAllowed VB.Net: No replacement VB6: App.OleRequestPendingMsgText App.OleRequestPendingMsgTitle App.OleRequestPendingTimeout App.OleServerBusyMsgText App.OleServerBusyMsgTitle App.OleServerBusyRaiseError App.OleServerBusyTimeout VB.Net: No replacement; OLE automation not supported VB6: s=App.Path VB.Net: s=System.Windows.Forms.Application.StartupPath or Imports System.Reflection With New System.IO.FileInfo([Assembly].GetExecutingAssembly.Location) s = .FullName.Substring(0,.FullName.Length - .Name.Length - 1) End With Note: this will return the path with no trailing backslash even if the application is in the root directory. The VB 6.0 App.Path method return included the trailing backslash when the executable was in a root directory. VB6: b=App.PrevInstance VB.Net: Imports System.Diagnostics b=(UBound(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)) > 0) VB6: s=App.ProductName VB.Net: Imports System.Diagnostics Imports System.Reflection s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).ProductName) VB6: App.RetainedProject VB.Net: No replacement; state not supported VB6: i=App.Revision VB.Net: Imports System.Diagnostics Imports System.Reflection i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileBuildPart) and/or: i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FilePrivatePart) VB6: App.StartMode VB.Net: No direct replacement VB6: App.TaskVisible VB.Net: No direct replacement VB6: App.ThreadID VB.Net: No direct replacement; see the System.Threading.Thread object VB6: App.Title VB.Net: The Text (caption) of the top-level form. If there are no forms then the process does not appear in Task Manager. VB6: App.UnattendedApp VB.Net: No direct replacement Methods: VB6: App.StartLogging App.LogEvent VB.Net: No direct replacement; see the EventLog object