Code: Select all
For a = 0 To Application.OpenForms.Count - 1
MsgBox(Application.OpenForms.Item(a).GetHashCode)
Next
Code: Select all
text=Form.ActiveForm.GetHashCode
Code: Select all
For a = 0 To Application.OpenForms.Count - 1
MsgBox(Application.OpenForms.Item(a).GetHashCode)
Next
Code: Select all
text=Form.ActiveForm.GetHashCode