Private Sub getFieldsInfo(findtag As String) As String
For Each v As View In Panel1.GetAllViewsRecursive ' txtAccntNum
If v Is Label Then
Dim lbl as Label
lbl = v
If lbl.tag = findtag Then
Log(lbl.tag)
Dim mdata As String
mdata = lbl.Text
Log(mdata)
Return mdata
End If
End If
Next
Return False
End Sub