久久久国产一区-久久久国产一区二区三区丝-久久久国产一区二区三区丝袜-久久久国产综合视频-久久久精品白浆无码-久久久精品波多野结衣

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

只一個按鈕的看不見不出問題。可能是出在別的地方吧