The next script can be used to send a initialization command to a device in Elipse E3, Elipse Power, or Elipse Water by using a writing operation in an Initializing Tag and at the same time read status information returned by this command.

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