97久久精品人人爽人人爽蜜臀/www.青草视频/成视频年人黄网站视频福利/国产第一页第二页/国产裸拍裸体视频在线观看/国产又色又爽又高潮免费/精品超清无码视频在线观看/久久精品蜜芽亚洲国产av/辽宁熟女高潮狂叫视频/你懂在线/欧美少妇15p/人妖 丝袜 另类 亚洲/日韩欧美网站/少妇人妻大乳在线视频/婷婷色国产/性色av无码久久一区二区三区/亚洲精品图片一区15p/亚洲一卡2卡3卡4卡5卡精品

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