// so erstelle ich meinen Client
Dim Client as New Client ( )  
 
// und so pruefe ich die Connection
Timer Beginn===============================================
if Client.Connected Then
// Buttonfarbe gruen
else 
// farblos
Timer Ende===============================================