Was alles packst du denn als Werte in die Hashtable? So das immer Boolean-Werte sind, sollte
Dim result As Boolean = ht.Values.Cast(Of Boolean).Any(Function(b) b)
reichen. Aber in deinem Beispiel sollte schon das mehrfache ht.Add(1, ...) einen Laufzeitfehler geben.
MVP Data Platform Development
My blog