Private Sub conn_StateChange(ByVal sender As Object, ByVal e As _
      System.Data.StateChangeEventArgs) Handles conn.StateChange
 
    End Sub

    Private Sub UpdateServerStatus()
        Dim Status As ConnectionState
        Status = conn.State
 
        Select Case Status
            Case ConnectionState.Closed
                _ServerStatusVerbunden.UpdateChannelValue(False)
 
            Case ConnectionState.Open
                _ServerStatusVerbunden.UpdateChannelValue(True)
        End Select
 
    End Sub/code]
 
Am Anfang habe im Code setze ich einmal:
<pre><code>Dim th As New Threading.Thread(AddressOf UpdateServerStatus)