Code:
For Each CurrentCar As Car In CarCollection 
   MessageBox.Show(CurrentCar.Color)
Next
I have to guess you do not have Option Strict turned on, or you did not show your declaration of line. Ensure you have it turned on !!