OpenForms la puoi usare in questo modo:
Dim i As Integer
For i = 0 To Application.OpenForms.Count - 1
If TypeOf Application.OpenForms(i) Is Form1 Then
CType(Application.OpenForms(i), Form1).ID.Text = "...."
End If
Next
Dove al posto di Form1 ci devi mettere il nome della classe della tua form che devi controllare.
Cristian Barca