Pass a Label into a subroutine - [RESOLVED]

[strobinson1]

Hi,

I am trying to make a series of labels change to a colour when you press a button.

This is what I have written:

Private Sub CommandButton1_Click()
 
    checkItRed Label1
 
End Sub 
 
Sub checkItRed(ObName As Label)
    
    ObName.BackColor = vbRed
    Me.Repaint
 
End Sub

Basically a label on the form called Label1 and when I click the command1 button I want the label to change to red.

But I want to have it as a seperate subroutine that needs to be called.


Can you see what I am doing wrong ? Claims there is a "Type Mismatch"