Dim nCount As Integer
 
nCount = Winsock.UBound
MsgBox "Höchster Index: " & CStr(nCount)

' Versuch auf eine Eigenschaft zuzugreifen
' Wird ein Fehler ausgelöst, existiert das Control nicht
Dim sName As String
 
On Error Resume Next
sName = Winsock(2).Name
If Err.Number <> 0 Then MsgBox "Winsock(2) existiert nicht mehr!"
On Error Goto 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de