Dim moduleList As String = ""
Dim i As Integer
i = 0
While i < igRecognition.Modules.Count
Dim [module] As ImGearRecModuleSettings = igRecognition.Modules(i)
moduleList += [module].Name + vbCr & vbLf
Dim Id As ImGearRecModule = [module].ID
moduleList += "igRecognition.Modules[" + "ImGearRecModule." + Id.ToString() + "].Version = " + _
igRecognition.Modules(Id).Version.ToString() + vbCr & vbLf
System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
End While
System.Console.WriteLine(moduleList)