Private Sub WS_Close()
  Check1.Value = 0
End Sub
 
Private Sub WS_Connect()
  WS.SendData ' logon sequence... username, password und so ^^
End Sub
 
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
  Dim s
  WS.GetData s, vbString
  parseData s
End Sub

Private Sub Form_Unload(Cancel As Integer)
  WS.Close
End Sub

Private Sub Check1_Click()
  If Check1.Value = 1 Then
    If WS.State <> 0 Then WS.Close
    WS.Connect "europe.battle.net", 6112
  Else
    WS.Close
  End If
End Sub