hola buenas tardes
tengo un problema espero me puedan ayudar, ya que emigre un programa de VB6 a VB .net y me sale el siguiente error alguna persona podria ayudarme a resolver esta sintaxis.

[color=#0000ff size=2]


Private[/color] [color=#0000ff size=2]Sub[/color] MDIPrincipal_Closed([color=#0000ff size=2]ByVal[/color] eventSender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] eventArgs [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] [color=#0000ff size=2]MyBase[/color].Closed


[color=#0000ff size=2]Dim[/color] i [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Short[/color]





[color=#0000ff size=2]If[/color] (clsBD.gfCierraBaseDatos(ConexCat) = [color=#0000ff size=2]True[/color]) [color=#0000ff size=2]And[/color] (clsBD.gfCierraBaseDatos(ConexApp)) [color=#0000ff size=2]Then[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]





[color=#008000 size=2]'Cierro todas las formas que pudieran quedar abiertas[/color]


[color=#008000 size=2]'UPGRADE_ISSUE: Forms colección no se actualizó. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'[/color]


[color=#008000 size=2]'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Forms.Count. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'[/color]


[color=#0000ff size=2]For[/color] i = Forms.Count - 1 [color=#0000ff size=2]To[/color] 0 [color=#0000ff size=2]Step[/color] -1


[color=#008000 size=2]'UPGRADE_ISSUE: Forms colección no se actualizó. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'[/color]


[color=#008000 size=2]'UPGRADE_ISSUE: Forms() de descarga no se actualizó. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2029"'[/color]


Unload(Forms(i))


[color=#0000ff size=2]Next[/color]