人妻精品99I日韩无码视频一区二区I欧美色图50pIwuyeripiI欧产日产国产swagI欧美 日韩 久久I99国产精品久久久久老师I成人AV电影网I艳妇乳肉豪妇荡乳AV无码福利I国产精品国产精品国产专区蜜臀AhI成人久久免费视频Iwww.91在线观看视频I国自产在线观看I色之综合网

初學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