久久99精品视频一区97_亚洲a免费在线观看_美欧日韩av无码一区二区_国产精品视频123_东京热一本无码av_99精品国产闺蜜国产在线闺蜜

初學(xué)vb.net編程，請(qǐng)各位幫幫忙 vb.net報(bào)錯(cuò)

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