vb.net 表單的focus狀態

Protected Overloads Overrides Sub WndProc(ByRef m As Message)

if m.Msg= 6 //表單狀態
if m.WParam.ToInt32() = 1//表單建立

end if
if m.WParam.ToInt32() = 2//表單從後面移到前面

end if
if m.WParam.ToInt32() = 2097152//表單縮到最小
end if
if m.WParam.ToInt32() = 0 //表單從前面移到後面
end if
end if
MyBase.WndProc(m)
End Sub