Problem mit PrintPreviewControl

[rufushome]

Hallo,

Ich habe ein Fenster, in diesem Fenster ist ein Button.
Wenn ich auf den Butten drücke, erzeuge ich ein Objekt vom Typ eines anderen Fensters und rufe das Fenster mit Show() auf.

Public Class frmHaupt

    Private Sub cmdDruck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDruck.Click
        Dim frm As frmDruck = New frmDruck()
        frm.Show()
    End Sub

End Class

Dieses neue Fenster erzeugt beim Laden ein neues PrintDocument und weist es einem PrintPreviewControl zu.

Public Class frmDruck

    Private Sub frmDruck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim doc As PrintDocument = New PrintDocument()
        preview.Document = doc
    End Sub

End Class

Beim ersten mal kommt vom PrintPreviewControl aus ein Statusfenster ("Drucke Seite 1 von ..."), sobald dies verschwindet, bekommt das Druckfenster auch den Fokus.

Bei jedem weiteren Aufruf erhält das Hauptfenster nach der Statusanzeige den Fokus.

Kann mir jemand sagen wie ich es machen kann, dass das Druckfenster immer den Fokus behält?

Vielen Dank,

Rufus