registry check - freezing me

[Pouncer]

basically this is lagging my pc up when the registry has 0 entries in the key

Private Sub Form_Load()
Dim RegArray() As String
Dim intLoop As Integer
 
 RegArray = EnumKeyValues(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run")
 
 For intLoop = 0 To UBound(RegArray)
     List1.AddItem RegArray(intLoop)
 Next intLoop
 
End Sub

for e.g, if my HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run has no entries, it will just lag me right down, its like its in an endless loop or something.

can anyone help me sort this problem out?

this is the module i use