Argh
I imported a project and got this mess
'UPGRADE_WARNING: Form event Form1.Activate has a new behavior. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
Private Sub Form1_Activated(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Activated
Dim WhichDir As Object
Dim DontShutOff As Object
-----------------------
'UPGRADE_WARNING: Couldn't resolve default property of object DontShutOff. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
DontShutOff = False
'UPGRADE_WARNING: Couldn't resolve default property of object Printroute. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
If Printroute Then
WhichDrawing = VB.Left(VB.Command(), InStr(1, VB.Command(), "|"
- 2) & ".dwg"
Else
WhichDrawing = Trim(VB.Command()) & ".dwg"
--------
It goes on and on
DougP, MCP
I imported a project and got this mess
'UPGRADE_WARNING: Form event Form1.Activate has a new behavior. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
Private Sub Form1_Activated(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Activated
Dim WhichDir As Object
Dim DontShutOff As Object
-----------------------
'UPGRADE_WARNING: Couldn't resolve default property of object DontShutOff. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
DontShutOff = False
'UPGRADE_WARNING: Couldn't resolve default property of object Printroute. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
If Printroute Then
WhichDrawing = VB.Left(VB.Command(), InStr(1, VB.Command(), "|"

Else
WhichDrawing = Trim(VB.Command()) & ".dwg"
--------
It goes on and on
DougP, MCP