>Why it does not work?
>--
>SET OLEOBJECT ON
>#INCLUDE D:\GMS.X000\RSLinxOPCAuto.dll
>RSLinxServer = CreateObject('RSLinxOPCAutomation.OPCServer')
>--
>
>Same code in VB works good:
>--
>Dim oServer As RSLinxOPCAutomation.OPCServer
>Set oServer = New RSLinxOPCAutomation.OPCServer
>--
>
>Alexey

Same code ???
Assuming it's registered :

local RSLinxServer
RSLinxServer = CreateObject('RSLinxOPCAutomation.OPCServer')

* If you have VFP7 you could also make the declaration like this :
local oServer As RSLinxOPCAutomation.OPCServer
oServer = NewObject('RSLinxOPCAutomation.OPCServer')

Cetin