directX minimize window problem

[Jovo Mirkovic]

Hi,
Any Windows action which minimizes all windows (win + D, ctrl + alt +
del) is causing program error

I have two forms:

Form1 is shown on primary monitor on dual head graphics display

Public Class Form1

Inherits System.Windows.Forms.Form

Dim out As monitorIzlaz

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

out = New monitorIzlaz

out.setBackColor(Color.Black)

out.Top = 0

out.Left = -800

out.Show()

out.kreni()

End Sub

End Class

monitorIzlaz is shown on secondary monitor on dual head graphics display

Imports Microsoft.DirectX

Imports Microsoft.DirectX.Direct3D

Imports Microsoft.DirectX.AudioVideoPlayback

Public Class monitorIzlaz

Inherits System.Windows.Forms.Form

Public device As Device = Nothing

Dim radi As Boolean = True

Dim nit As System.Threading.Thread

Dim nitVideo As System.Threading.Thread

Private s(15) As Microsoft.DirectX.Direct3D.Sprite

Public comp(15) As monitorComp

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

InitializeGraphics()

Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or
ControlStyles.Opaque, True)

nit = New System.Threading.Thread(AddressOf mainloop)

nit.Priority = Threading.ThreadPriority.Highest

End Sub

Public Sub InitializeGraphics()

Dim presentParams As New PresentParameters

presentParams.SwapEffect = SwapEffect.Flip

presentParams.BackBufferCount = 1

presentParams.Windowed = True

presentParams.AutoDepthStencilFormat = DepthFormat.D24S8

presentParams.EnableAutoDepthStencil = True

presentParams.PresentationInterval = PresentInterval.One

device = New Device(1, DeviceType.Hardware, Me,
CreateFlags.HardwareVertexProcessing, presentParams)

device.RenderState.SourceBlend = Direct3D.Blend.SourceAlpha

device.RenderState.DestinationBlend =
Direct3D.Blend.InvSourceAlpha

device.RenderState.AlphaBlendEnable = True

Dim i As Integer

For i = 0 To 15

s(i) = New Sprite(device)

Next

AddHandler device.DeviceReset, AddressOf Me.resetDevice

AddHandler device.DeviceResizing, AddressOf Me.resetDevice1

End Sub

Public Sub mainloop()

Dim dir As System.IO.Directory

Dim pomak As Integer = 2

While radi

Try

device.Clear(ClearFlags.Target Or ClearFlags.ZBuffer,
bckColor, 1.0F, 0)

device.BeginScene()

For i = 0 To 15

s(i).Begin(SpriteFlags.AlphaBlend)

s(i).Draw(comp(i).rendertexture, New
Rectangle(0, 0, comp(i).SIRINA, comp(i).VISINA), New Vector3(0, 0, 0),
New Vector3(comp(i).X, comp(i).Y, 1.0F), Color.FromArgb(comp(i).opacity,
255, 255, 255))

s(i).End()

next

device.EndScene()

device.Present()

Catch ex As Exception

End Try

End While

End Sub

Public Sub kreni()

nit.Start()

End Sub

End Class

Any idea what’s wrong and/or how to solve this problem?

Thanks in advance.

*** Sent via Developersdex http://www.developersdex.com ***