国产一区一区-色丁香在线-在线天堂视频-亚洲综合久久久久久888-丁香六月婷婷激情-欧美人与动牲交app视频-www.亚洲免费-91九色视频在线-国产视频福利一区-免费视频亚洲-亚洲男女激情-无码中文av波多野吉衣迅雷下载-亚洲电影区图片区小说区-国产精品一区二区在线-又黄又爽又猛的视频免费

初學(xué)vb.net編程，請各位幫幫忙 vb.net報錯

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim iRet As Integer
        Dim szDeviceName As String = "d0"         'List data for 'DeviceName'
        Dim iNumberOfDeviceName As Integer = 2  'Data for 'DeviceSize'
        Dim sharrBufferForDeviceValue() As Integer
        DotUtlType1.ActLogicalStationNumber = CInt(1)
        'The Open method is executed.
        iRet = DotUtlType1.Open()

        iRet = DotUtlType1.ReadDeviceBlock(szDeviceName,
                                                           iNumberOfDeviceName,
                                                                           sharrBufferForDeviceValue(0))


    End Sub
End Class