O script a seguir pode ser usado para enviar um comando de inicialização para um equipamento no Elipse E3, Elipse Power ou Elipse Water usando uma operação de escrita em um Tag de Inicialização e ao mesmo tempo ler as informações de status retornadas por este comando.

Sub CommandButton1_Click()
  Dim vWriteStatus(4)
  if (Application.GetObject("[Driver Keller].InitAndRelease").WriteEx(vValue, vTimestamp, _
      vQuality, vWriteStatus)) Then
    Screen.Item("TextBox1").Text = vWriteStatus(0)
    Screen.Item("TextBox2").Text = vWriteStatus(1)
    Screen.Item("TextBox3").Text = vWriteStatus(2)
    Screen.Item("TextBox4").Text = vWriteStatus(3)
    Screen.Item("TextBox5").Text = vWriteStatus(4)
  End If
End Sub