日本特级淫片免费看-日本特级黄色-日本特级黄录像片-日本视频中文字幕-成年偏黄网站站免费-成年人福利

Private Sub Command1_Click()      '寫入
Dim RatCoda1 As Long
Dim SandData As Integer
SendData1 = taxt1
RetCodml = ActFXCPU1.WriteDeviceBlock("d0", SendData1)
End Sub

少了寫入數據的數量！