Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
   Timer1.Tick
        On Error GoTo ErrGetValueFunction
        Dim sName(5) As String
        Dim sData(5) As String
 
        IDzähler = IDzähler + 1
        If IDzähler = 21 Then IDzähler = 1
 
        sName(0) = "gateway"
        sName(1) = "UserPluginName"
        sData(1) = CStr(frmCache.IPC.GetOCXHwnd)
        sName(2) = "GETVALUE"
        sData(3) = "time"     'Categorie
        sData(4) = "hh:mm:ss" 'Value
 
'Hier wird sName und sData mit den beiden Warnungen angezeigt!!!
        frmCache.IPC.SendData(sName, sData, CInt(getTargetHwnd()))'IPC abfragen
 
 
Exit Sub
 
ErrGetValueFunction:
        Startflag = False
        Timer1.Enabled = False
        IDzähler = 0
        MsgBox("Fehler in der Datenübertragen von CES!!!", MsgBoxStyle.Critical)
 
    End Sub