Private Sub AxEng1_ValueStateChanged(ByVal sender As Object,

                         ByVal e As AxFAENGINELib6._DFAEngineEvents_ValueStateChangedEvent)

                         Handles AxEng1.ValueStateChanged

 If e.state Then

         '正常時

         txtVal( Integer.Parse(e.tagPath.Substring(e.tagPath.Length - 2))).Text = CStr(e.value)

 Else

         '異常時

         txtVal(Integer.Parse(e.tagPath.Substring(e.tagPath.Length - 2))).Text = "Error!"

 End If

End Sub

更新周期はフォルダのプロパティで設定します。