FolderBrowseDialog immediately close in OnBeforeInstall event in Windows Application

I just add browse button that has folderbrowseDialog. When I click that button,it just loading.folderbrowsedialog doesn't open ever. My code is:

Protected Overrides Sub OnBeforeInstall(savedState As IDictionary)
        MyBase.OnBeforeInstall(savedState)
        Dim formmysqlpathBrowse As Form = New Form()
        formmysqlpathBrowse.Size = New System.Drawing.Size(540, 400)
        formmysqlpathBrowse.StartPosition = FormStartPosition.CenterScreen

        mysqlpathTB.Location = New System.Drawing.Point(49, 108)
        mysqlpathTB.Size = New System.Drawing.Size(300, 20)

        Dim browseLB As Label = New Label()
        browseLB.Location = New System.Drawing.Point(46, 73)
        browseLB.Size = New System.Drawing.Size(110, 13)
        browseLB.Text = "Select Mysql file path:"

        Dim browseBTN As Button = New Button()
        browseBTN.Location = New System.Drawing.Point(353, 103)
        browseBTN.Size = New System.Drawing.Size(125, 30)
        browseBTN.Text = "Browse"

        Dim submitBTN As Button = New Button()
        submitBTN.Location = New System.Drawing.Point(353, 310)
        submitBTN.Size = New System.Drawing.Size(125, 30)
        submitBTN.Text = "Submit"

        AddHandler browseBTN.Click, New System.EventHandler(AddressOf Me.browse)
        AddHandler submitBTN.Click, New System.EventHandler(AddressOf Me.submit)

        formmysqlpathBrowse.Controls.Add(mysqlpathTB)
        formmysqlpathBrowse.Controls.Add(browseBTN)
        formmysqlpathBrowse.Controls.Add(browseLB)
        formmysqlpathBrowse.Controls.Add(submitBTN)
        Application.Run(formmysqlpathBrowse)
    End Sub
    Private Sub browse(ByVal sender As Object, ByVal e As EventArgs)
        Dim folderbrowse As FolderBrowserDialog = New FolderBrowserDialog
        If folderbrowse.ShowDialog = DialogResult.OK Then
            mysqlpathTB.Text = folderbrowse.SelectedPath
        End If
    End Sub

    Private Sub submit(ByVal sender As Object, ByVal e As EventArgs)
        mysqlpath = mysqlpathTB.Text
        MessageBox.Show(mysqlpath)
    End Sub