多謝樓主的指點幫助了

修改如下：
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時，沒有成功，要做那些設(shè)置嗎？

改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是什么意思呀