windows form activo

 If Application.OpenForms.OfType(Of windows_form1).Any Then
            MessageBox.Show("windows form1")
        ElseIf Application.OpenForms.OfType(Of windows_form2).Any Then
            MessageBox.Show("windows_form2")
        End If

fuente