Sub btn_Action
Dim frm As Form = getForm(Sender)
End Sub
Sub getForm(childOfTheFormToFind As Node) As Form
For Each frm As Form In listOfForms
Dim joForm As JavaObject = frm
Dim joStage As JavaObject = joForm.GetField("stage")
If joStage = getNodeStage(childOfTheFormToFind) Then
Return frm
End If
Next
Return Null
End Sub
Sub getNodeStage(N As Node) As JavaObject
If GetType(N.Parent).ToUpperCase = "STAGE" Then
Return N.parent
Else
Return getNodeStage(N.Parent)
End If
End Sub