多谢楼主的指点帮助了

修改如下：
Private Sub Command1_Click()
  Dim i(0) As Long
  i(0) = CLng(Text1.Text)
  gf = PLC.WriteDeviceBlock("D0", CLng(1), i(0))
End Sub

太好了楼主，谢谢你，可以写入了。

楼主你好，我在控制FX3UPLC时，没有成功，要做那些设置吗？

改PLC CPU的代碼，底下是FX系列的。
我原先都是用FX0N在模擬的，你把actcputype改一下就可以了。
不同的型號，actcputype代碼都不同。
如下

''' FXCPU
Global Const CPU_FX0CPU = &H201                                         ' FX0/FX0S
Global Const CPU_FX0NCPU = &H202                                        ' FX0N
Global Const CPU_FX1CPU = &H203                                         ' FX1
Global Const CPU_FX2CPU = &H204                                         ' FX2/FX2C
Global Const CPU_FX2NCPU = &H205                                        ' FX2N/FX2NC
Global Const CPU_FX1SCPU = &H206                                        ' FX1S
Global Const CPU_FX1NCPU = &H207                                        ' FX1N
Global Const CPU_FX3UCCPU = &H208                                       ' FX3U/FX3UC
Global Const CPU_FX3GCPU = &H209                                        ' FX3GCPU

谢谢楼主，我再试试。

楼主你好，谢谢你的帮助。

最近有没有更新   

什麼更新？

楼主 您 看到 此贴  加我 QQ 好吗？？？ 我 问题要 请教！  13030299

GPPW+LLT+MX+VB6+電腦一台  请问楼主,MX是什么意思呀