Hello,

followingan example, which activates the free blocks and activates an AND- block:
=====================================================

Option Explicit

On Error GoTo 0

Dim oCU
Dim oTO
Dim oFM

' Get CU object
Set oCU = PROJ.Devices("S120_CU320_2_PN").SubObjects("Control_Unit")
' Get drive object
Set oTO = PROJ.Devices("S120_CU320_2_PN").TOs("Drive_1")
' Get free function blocks object
Set oFM = oTO.FunctionModules("Free function blocks")
' Enable this funktion module
oFM.Value = True

' Loop over all function modules of the drive to check enabled state
For Each oFM In oTO.FunctionModules
If (oFM.BitPosition = 18) Then
MsgBox _
"DriveObject: " & oTO.Name & vbCrLf & _
"Function module: " & oFM.Description & vbCrLf & _
"Enabled: " & oFM.Value
End If ' oFM.BitPosition = 18
Next ' oFM

' Set inputs of AND 0 gate
oTO.Parameters(20030, 0) = "722:0:" & oCU.DriveId ' Connect input 0 of AND 0 gate to DI0
oTO.Parameters(20030, 1) = "722:1:" & oCU.DriveId ' Connect input 1 of AND 0 gate to DI1
oTO.Parameters(20030, 2) = 0 ' Don't use input 2
oTO.Parameters(20030, 3) = 0 ' Don't use input 3

' Set output of And 0 gate
oCU.Symbols("p728.8") = 1 ' DI/DO8 is output
oCU.Parameters(738, 0) = "20031:0:" & oTO.DriveId ' Connect DI/DO8 to output of AND 0 gate

' Run-time group properties
oTO.Parameters(20000, 0) = 100 ' Time factor
' Assign AND 0 gate to run-time group
oTO.Parameters(20032, 0) = 0 ' Run-time group 0

=====================================================