Label.text won't change.

[detlion1643]

I have written a public sub to update a label on a different form by passing in an integer. If I pass in the -1 value it will update the label, but if I pass in any other value, it will run the code (verified by stepping line by line) but the label won't update, even when adding the doevents.

Public Sub mstidlbl(ByVal cnt As Integer)
        SyncLock Form_PG_Collect_Master_ID_Label
            If cnt = -1 Then
                Form_PG_Collect_Master_ID_Label.Label1.Text = "ID: Paused..."
            Else
                Form_PG_Collect_Master_ID_Label.Label1.Text = ""ID: " & cnt
            End If
        End SyncLock
    End Sub