Public MyRsLinxOPCServer As RsiOPCAuto.OPCServer
Public WithEvents MyRSLinxOPCGroup As RsiOPCAuto.OPCGroup
Public LinxItem1 As RsiOPCAuto.OPCItem   
 
 Private Sub PLC_write()
        Try
 
            ' OPC Verbindung initialisieren
            MyRsLinxOPCServer = New RsiOPCAuto.OPCServer
            MyRsLinxOPCServer.Connect("RSLinx OPC Server")
 
           ' OPC Server Gruppe setzen
            MyRSLinxOPCGroup = MyRsLinxOPCServer.OPCGroups.Add("wetter")
 
            'OPC Server Gruppe aktiv schalten
            MyRSLinxOPCGroup.IsActive = True
 
            ' Items aufbauen
            LinxItem1 = MyRSLinxOPCGroup.OPCItems.AddItem( _
              settingmenu.OPCtemp.Text, 1)
            MyRSLinxOPCGroup.OPCItems.AddItem(settingmenu.OPChum.Text, 1)
 
            ' Werte in PLC schreiben
            MyRSLinxOPCGroup.OPCItems.Item(1).Write(temp)
            MyRSLinxOPCGroup.OPCItems.Item(2).Write(hum)
 
            ' Initialisierung löschen 
            LinxItem1 = Nothing
 
            MyRsLinxOPCServer.OPCGroups.RemoveAll()
            MyRSLinxOPCGroup = Nothing
            MyRsLinxOPCServer.Disconnect()
            MyRsLinxOPCServer = Nothing
 
            OPCServerStatuserror.Visible = False
            OPCServerStatusok.Visible = True
            status.Text = Nothing
 
        Catch ex As Exception
 
            OPCServerStatuserror.Visible = True
            OPCServerStatusok.Visible = False
            status.Text = ex.Message
 
        Finally
 
 
        End Try
    End Sub