Bug On ShowDilaog Form

Hi,

It is possible that there is a bug starting from version 2.1.66.
In one of my applications in the program module I inserted the following code:

Public Sub Main ()
Application.Desktop = New MyDesktop ()
Dim f As New frmLOGIN
f.StartPosition = Wisej.Web.FormStartPosition.Manual
f.Top = 0: f.Left = 0
If f.ShowDialog = DialogResult.Cancel Then
Exit Sub
End If
Dim window As New Window1 ()
window.Show ()
End Sub

Private Sub Button1_Click (sender As Object, and As EventArgs) Handles Button1.Click
Me.DialogResult = Wisej.Web.DialogResult.OK
Me.Dispose ()
End Sub

When I close the frmLOGIN form with the ‘OK’ button, the Window1 form is not displayed. In debug mode the instructions:
Dim window As New Window1 ()
window.Show ()

They are not processed.
I attach demo application.

Thanks in advance