Calling a procedure from a UserControl?

[DragonQ]

If I have a UserControl (UsrCtlDate) which contains a textbox (txtDate_D), how do I call a procedure which lies in the active form when the event "txtDate_D.validating" is fired?

I tried "Form.ActiveForm.Procedure1" which doesn't work. I also tried declaring a string which contains the name of the current active form, and then using If statements with specific Form names (e.g. If CurrentForm = "frmData" then frmData.Procedure1), which also didn't work. Lastly, I tried UserControl.Parent.Procedure1, which also failed.

How can I call a procedure which lies in the active form from the UserControl?

[Negative0]

How about you create a new Event in your user control and you fire the event when you need to. Then in your Main form, you create an Event handler for your event and fire your procedure.

[DragonQ]

Sorry, please elaborate? This is what I have currently:

<UsrCtlDate>

Private Sub txtDate_D_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtDate_D.Validating
 
        frmData_TextBox1Validated = Module_txtDates_All_Validating(sender, Me, e)        
        [b]'Form.ActiveForm.LabelInfoChange(frmData_LabelChangeIndex)[/b]
    End Sub

<frmPrint>

Public Sub LabelInfoChange(ByVal LabelIndex As Integer, Optional ByVal IsDefault As Boolean = False)
 
        '<Stuff to change the label on frmPrint>
 
    End Sub

<frmData>

Public Sub LabelInfoChange(ByVal LabelIndex As Integer, Optional ByVal IsDefault As Boolean = False)
 
        '<Stuff to change the label on frmData>
 
    End Sub

(The bold code is what I want done, but does not work)

[Negative0]

Add an event to your UserControl:

Public Event AfterValidated()
 
 
    Private Sub txtDate_D_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtDate_D.Validating
 
        frmData_TextBox1Validated = Module_txtDates_All_Validating(sender, Me, e)
       RaiseEvent AfterValidated()
    End Sub

Then wherever you have your usercontrol, you now have an AfterValidated event, where you can then call your LabelInfoChange code.

Private Sub UserControl12_AfterValidated() Handles UserControl12.AfterValidated
        LabelInfoChange(Me.LabelChangeIndex)
    End Sub

[DragonQ]

Thanks, I think it's working fine now