長文失礼いたします。
2016年5月に更新プログラムKB3153199を適用したところ、Windows8.1(64bit)環境で不正な動きをしました。
モードレスで起動した画面が最前面に表示されなくなりました。
解決方法を探していますが、見つかっておらず困っています。
【アプリ概要】
・メイン画面（以下、画面A)にボタンを配置し、押下すると他画面（以下、画面B）を
モードレスで起動する。複数起動可能。
・画面Aと画面Bの間に、（IEなど）別ものが挟まらないように、
どちらかの画面がアクティブになったタイミングで、残りの画面の表示順を制御している。
【問題点】
画面Aのボタンを押下した際、更新プログラムの適用前までは画面Bが最前面で表示されていましたが、
適用後は画面Aの後ろに回ってしまいました。
【環境】
開発環境：Windows7(32bit)
VSバージョン：Visual Studio 2010 professional
開発言語：VB.Net
フレームワーク：.NET Framework 4
実行環境：Windows8.1（64bit）およびWindows7（32bit）
※Windows7環境では、問題は発生しておりません。
探した限りではKB3153199を適用したことで、アプリケーションに不具合が生じたような
事例は見つけられておりません。
KB3153199をアンインストールする以外に対応方法はないでしょうか？
以下、再現用のサンプルソース（３つ）です。Designer.vbは割愛させていただいております。
/////////////////////////ソース１ここから-->///////////////////////////////////
Option Strict Off
Option Explicit On
Imports System.Windows.Forms
Module modMain
Public dspColl As New Collection
Public dspFlg As Boolean = False
Public Sub Main()
'Main画面を表示
Dim f As New frmMainmenu
f.ShowDialog()
End Sub
End Module
/////////////////////////ソース１ここまで<--///////////////////////////////////
/////////////////////////ソース２ここから-->///////////////////////////////////
Option Strict Off
Option Explicit On
Imports System.Windows.Forms
Friend Class frmMainmenu
Private Sub frmMainmenu_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
dspColl.Add(Me)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'画面Bを表示
Dim f As New Form2
f.Show()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
'自画面を閉じる
Me.Close()
Me.Dispose()
End Sub
Private Sub frmMainmenu_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated
Dim st As Form
Dim sColl As New Collection
If dspFlg = False Then
'表示している画面をコレクションに格納する関数を呼び出し
setDspCollection(dspColl, Me, sColl)
dspColl.Clear()
For Each st In sColl
dspColl.Add(st)
Next
'全画面をアクティブにする関数を呼び出し
setFrmActivate(dspColl, Me)
End If
End Sub
Public Sub setFrmActivate(nColl As Collection, frm As Form)
Dim st As Form
dspFlg = True
'表示している画面を順にアクティブにする
For Each st In nColl
st.Activate()
Next
'自画面をアクティブにする
frm.Activate()
dspFlg = False
End Sub
Public Sub setDspCollection(nColl As Collection, frm As Form, reColl As Collection)
Dim st As Form
'表示している画面を順番にコレクションに格納
For Each st In nColl
If st.IsHandleCreated = True Then
'自画面はコレクションに格納しない
If st.Handle <> frm.Handle Then
reColl.Add(st)
End If
End If
Next
'自画面をコレクションに格納する
reColl.Add(frm)
End Sub
End Class
/////////////////////////ソース２ここまで<--///////////////////////////////////
/////////////////////////ソース３ここから-->///////////////////////////////////
Option Strict Off
Option Explicit On
Imports System.Windows.Forms
Friend Class Form2
Private Sub form2_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
dspColl.Add(Me)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'自画面を閉じる
Me.Close()
Me.Dispose()
End Sub
Private Sub Form2_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated
Dim st As Form
Dim sColl As New Collection
If dspFlg = False Then
'表示している画面をコレクションに格納する関数を呼び出し
setDspCollection(dspColl, Me, sColl)
dspColl.Clear()
For Each st In sColl
dspColl.Add(st)
Next
'全画面をアクティブにする関数を呼び出し
setFrmActivate(dspColl, Me)
End If
End Sub
Public Sub setFrmActivate(nColl As Collection, frm As Form)
Dim st As Form
dspFlg = True
'表示している画面を順にアクティブにする
For Each st In nColl
st.Activate()
Next
'自画面をアクティブにする
frm.Activate()
dspFlg = False
End Sub
Public Sub setDspCollection(nColl As Collection, frm As Form, reColl As Collection)
Dim st As Form
'表示している画面を順番にコレクションに格納
For Each st In nColl
If st.IsHandleCreated = True Then
'自画面はコレクションに格納しない
If st.Handle <> frm.Handle Then
reColl.Add(st)
End If
End If
Next
'自画面をコレクションに格納する
reColl.Add(frm)
End Sub
End Class
/////////////////////////ソース３ここまで<--///////////////////////////////////
