关于system.windows.forms.picturebox成员的问题

Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasicFriend Class WebPrn
Inherits System.Windows.Forms.FormPrivate Sub PrintPzk(ByRef Num As Short)
Dim NowY, I As Object
'UPGRADE_ISSUE: PictureBox 属性 PrePic.CurrentY 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
'UPGRADE_WARNING: 未能解析对象 NowY 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
        NowY = PrePic.CurrentY
PrintBox(100, 1000 + 8400 * Num, 12000, 6600 + 8400 * Num, 3)
PrintBox(140, 1040 + 8400 * Num, 2980, 1580 + 8400 * Num, 2)
PrintBox(3020, 1040 + 8400 * Num, 7980, 1580 + 8400 * Num, 2)
PrintBox(8020, 1040 + 8400 * Num, 11960, 1280 + 8400 * Num, 2)
PrintBox(8020, 1320 + 8400 * Num, 9980, 1580 + 8400 * Num, 2)
PrintBox(10020, 1320 + 8400 * Num, 11960, 1580 + 8400 * Num, 2)
PrintBox(140, 1620 + 8400 * Num, 2980, 2480 + 8400 * Num, 1)
PrintBox(3020, 1620 + 8400 * Num, 7980, 2480 + 8400 * Num, 1)
PrintBox(8020, 1620 + 8400 * Num, 9980, 2480 + 8400 * Num, 1)
PrintBox(10020, 1620 + 8400 * Num, 11960, 2480 + 8400 * Num, 1)
PrintBox(140, 2520 + 8400 * Num, 2980, 3380 + 8400 * Num, 1)
PrintBox(3020, 2520 + 8400 * Num, 7980, 3380 + 8400 * Num, 1)
PrintBox(8020, 2520 + 8400 * Num, 9980, 3380 + 8400 * Num, 1)
PrintBox(10020, 2520 + 8400 * Num, 11960, 3380 + 8400 * Num, 1)
PrintBox(140, 3420 + 8400 * Num, 2980, 4280 + 8400 * Num, 1)
PrintBox(3020, 3420 + 8400 * Num, 7980, 4280 + 8400 * Num, 1)
PrintBox(8020, 3420 + 8400 * Num, 9980, 4280 + 8400 * Num, 1)
PrintBox(10020, 3420 + 8400 * Num, 11960, 4280 + 8400 * Num, 1)
PrintBox(140, 4320 + 8400 * Num, 2980, 5180 + 8400 * Num, 1)
PrintBox(3020, 4320 + 8400 * Num, 7980, 5180 + 8400 * Num, 1)
PrintBox(8020, 4320 + 8400 * Num, 9980, 5180 + 8400 * Num, 1)
PrintBox(10020, 4320 + 8400 * Num, 11960, 5180 + 8400 * Num, 1)
PrintBox(140, 5220 + 8400 * Num, 2980, 6080 + 8400 * Num, 1)
PrintBox(3020, 5220 + 8400 * Num, 7980, 6080 + 8400 * Num, 1)
PrintBox(8020, 5220 + 8400 * Num, 9980, 6080 + 8400 * Num, 1)
PrintBox(10020, 5220 + 8400 * Num, 11960, 6080 + 8400 * Num, 1)
PrintBox(140, 6120 + 8400 * Num, 7980, 6560 + 8400 * Num, 2)
PrintBox(8020, 6120 + 8400 * Num, 9980, 6560 + 8400 * Num, 2)
        PrintBox(10020, 6120 + 8400 * Num, 11960, 6560 + 8400 * Num, 2) 'UPGRADE_ISSUE: PictureBox 属性 PrePic.CurrentY 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
PrePic.CurrentY = (1060 + 8400 * Num) * Bl
PrintText("金     额", 10, 1, 9500, 0)
'UPGRADE_ISSUE: PictureBox 属性 PrePic.CurrentY 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
PrePic.CurrentY = (1200 + 8400 * Num) * Bl
PrintText("摘     要", 12, 1, 900, 0)
PrintText("科     目", 12, 1, 4900, 0)
'UPGRADE_ISSUE: PictureBox 属性 PrePic.CurrentY 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
PrePic.CurrentY = (1340 + 8400 * Num) * Bl
PrintText("借    方", 10, 1, 8600, 0)
PrintText("贷    方", 10, 1, 10600, 0)
'UPGRADE_ISSUE: PictureBox 属性 PrePic.CurrentY 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
PrePic.CurrentY = (6240 + 8400 * Num) * Bl
PrintText("合           计", 14, 1, 2900, 0)
'UPGRADE_ISSUE: PictureBox 属性 PrePic.CurrentY 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
PrePic.CurrentY = (6640 + 8400 * Num) * Bl
PrintText("财务主管：", 9, 0, 140, 0)
PrintText("记帐：", 9, 0, 2600, 0)
PrintText("审核：", 9, 0, 5100, 0)
PrintText("制单：", 9, 0, 7600, 0)
PrintText("经办：", 9, 0, 10100, 0)
'UPGRADE_ISSUE: PictureBox 属性 PrePic.CurrentY 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
PrePic.CurrentY = (6940 + 8400 * Num) * Bl
PrintText("【SPDSOFT】", 8, 1, 10700, 0)
'UPGRADE_ISSUE: PictureBox 属性 PrePic.CurrentY 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
'UPGRADE_WARNING: 未能解析对象 NowY 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
PrePic.CurrentY = NowY
End Sub这是其中一段程序,我用VS2008,提示我currtenY不是system.windows.forms.picturebox成员的问题,但原来在VB6中没问题呀.