You need to make the following changes:

1. Dim frmainInst As frmMain = New frmMain
2. Dim c As RedControlTracker = New RedControlTracker

3. You don't need to call getRedControl from Sub New.
4. Because of 'return c' statement, the sub will only show the first control with red backcolor and get out of the loop. If that is what is intended, fine.

Good luck.