機能を実行した後にフォームが閉じられる

Question

初めて悪い英語を申し訳ありません！ 私はVb.Netでプログラムを持っていると私はこのようなライセンスチェックのためのモジュールを使用します。上記のコードをForm1で

Public Sub main() 
    Dim th As Thread = New Thread(AddressOf f1show) 
    Try 
     Dim cn As New SqlConnection("something") 
     Dim query As New SqlCommand("SELECT * FROM Test WHERE id = 1") 
     Dim dr As SqlDataReader 
     Dim dbtext As String = "" 
     query.Connection = cn 
     Try 
      cn.Open() 
      dr = query.ExecuteReader() 
     Catch 
      MsgBox("notOk") 
      Form3.ShowDialog() 
     End Try 
     If dr.HasRows Then 
      Do While dr.Read() 
       dbtext = dr("TEXT1") 
      Loop 
     Else 
      Form3.ShowDialog() 
     End If 
     cn.Close() 
     If dbtext <> "" Then 
      Dim dbwords As String() = zn.Custom_Decrypt(dbtex) 
      Dim dbword As String = dbwords(0) 
      If ZN.Custom_Decrypt(dbword) = "a" Then 
       Form1.ShowDialog() 
       'this where main form show and license is Ok 
      Else 
       Form3.ShowDialog() 
      End If 
     End If 
    Catch 
     Form3.ShowDialog() 
    End Try 
End Sub 

がメインフォームで、たForm3は、ライセンス形式とZnであることは正しく その作業私のモジュールであり、ライセンスがデータベースにある場合は、私は何をすべきですか？ ライセンスはデータベースにありますが、form1ではボタンの場合は何もしなくても機能を停止します。誰かがスタートアップを変更するために私に助言するが、問題は、私はこの問題を解決し application.runコード を使用するためにその必要性をすべてに

Answer 1

TNXを解決していない私は（Form3.ShowDialogを変更）（（新規たForm3をするApplication.Runします））