Referencing a Control's Name from Another Form

[rrjii2000]

I use a routine to display status messages on all my forms. Currently there is a copy of this code in every formclass in my project. I'm trying to figure out a way to move it to a global module and be able to reference the label on the 'sender' form and send text to it.

ex: FrmCallwasMadeFrom.lblStatus.text = "my message"

But right now this code only services the form that it lives in.

Public Sub myStatus(ByVal Status As String, ByVal isCritical As Boolean)
        'Dispaly Status Messages
        If isCritical Then
            lblStatus.ForeColor = Color.Red
            lblStatus.Font = myStatusCritical
        Else
            lblStatus.ForeColor = Color.Black
            lblStatus.Font = myStatusNormal
        End If
        lblStatus.Text = Status.Trim
        Me.Refresh()
    End Sub

Right now the Call looks like this

myStatus("Your Message Here", isCritical)

Any ideas?

[rrjii2000]

Ive found a way to make it work.

Public Sub myStatus(ByVal Status As String, ByVal isCritical As Boolean, ByRef lbl As Label)
        'Dispaly Status Messages
        If isCritical Then
            lbl.ForeColor = Color.Red
            lbl.Font = myStatusCritical
        Else
            lbl.ForeColor = Color.Black
            lbl.Font = myStatusNormal
        End If
        lbl.Text = Status.Trim
        lbl.Refresh()
    End Sub

But I have to type the controlname everytime I call it, a little combersome but I can't find any other workarounds.

myStatus(" ", isCritical, lblStatus)

[Hack]

But I have to type the controlname everytime I call it, a little combersome but I can't find any other workarounds.

That makes sense. You would need to do that no matter how you did it. Otherwise, how would your code know which label was supposed to display the status?

[rrjii2000]

The idea I had was to somehow setup a 'default' value or overload for the call. Some way to code the method so that it always grabs a default value (or control in this case) when the Call is made. And you wouldn't always have to pass in values.