Restaurar tamaño formulario

[Joven_Padowan]

Buenas a tod@s,

Tengo un problemilla con una aplicación que estoy desarrollando en visual basic.net...

Vereis, el tema es que en un momento de la aplicación, al pulsar un botón me lanza un formulario con una serie de campos que al rellenarlos y al llegar al último campo me lanza un segundo formulario en el cual cargo algunos valores del primer formulario... hasta ahí correcto.

El problema viene dado que, cuando llego al final de los campos del primer formulario, he hecho que se me minimize y me muestre el segundo formulario... pero no soy capaz de, cuando acabo de rellenar el segundo formulario, me vuelva a mostrar a tamaño normal el primer formulario que tengo minimizado.

Espero haberme explicado bien. Os pongo código de como está ahora el tema:

1.- Lanza el primer formulario, lo lleno y me lanza el seguno formulario (FSubcomptesT). Correcto:

Código:

Private Sub TxtNumero_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNumero.KeyPress

        If e.KeyChar = ChrW(Keys.Enter) Then 
            e.Handled = True
            'SendKeys.Send("{TAB}") 



            Dim num_comptasel As Long
            Dim strConexion As String
            Dim objConexion As System.Data.OleDb.OleDbConnection
            Dim objComando As System.Data.OleDb.OleDbDataAdapter
            Dim objDS As New DataSet
            Dim mitabla As DataTable = objDS.Tables.Add("mitabla")

            num_comptasel = Me.TxtNumero.Text

            strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\caixa\base.mdb"
            objComando = Nothing
       
            objDS = New DataSet

            objConexion = New System.Data.OleDb.OleDbConnection(strConexion)
            objComando = New System.Data.OleDb.OleDbDataAdapter("Select * From Comptes where numcompta='" & num_comptasel & "' and tipcaixa='" & Me.CmbTipCaixa.Text & "'", strConexion)
            objComando.Fill(objDS, "Select * From Comptes where numcompta='" & num_comptasel & "'  and tipcaixa='" & Me.CmbTipCaixa.Text & "'")
            'Try

            If objDS.Tables(0).Rows.Count = 0 Then

                MsgBox("El subcompte no existeix, el vol crear?", MsgBoxStyle.OkCancel, "Atenció")
                'Me.Visible = False

                Me.WindowState = FormWindowState.Minimized
                Esportiu.FSubcomptesT.Visible = True
                Esportiu.FSubcomptesT.TxtNumSub.Text = Me.TxtNumero.Text
                Esportiu.FSubcomptesT.TxtNomSub.Text = ""
                Esportiu.FSubcomptesT.TxtIva.Text = ""

        End If
        End If

    End Sub

2.- Lleno el segundo formulario y en el último campo le doy Enter para que guarde datos (Correcto) y me ponga el primer formulario (FCaixaT) en tamaño normal (NO FUNCIONA!):

Código:

Private Sub TxtIva_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtIva.KeyPress
        Dim tipocaixa As String
        Dim nom_comptasel As String
       
        Select Case e.KeyChar
            Case ChrW(Keys.Enter)
                e.Handled = True
                
                nom_comptasel = Me.TxtNomSub.Text
                tipocaixa = Me.CmbCaixa.Text

                If OptI.Checked = True Then
                    OptI.Tag = 1
                Else
                    OptI.Tag = 0
                End If
               
                Me.ComptesBindingSource.EndEdit()           
                Me.ComptesTableAdapter.Update(Me.BaseDataSet.Comptes)
             
                PictureBox2.Visible = True
                Me.Refresh()
                System.Threading.Thread.Sleep(1000)
                PictureBox2.Visible = False

                Me.Visible = False

                FCaixaT.Activate()
                If WindowState = FormWindowState.Normal Then
                    WindowState = FormWindowState.Maximized
                End If


        End Select

    End Sub

Agradezco ayuda urgente!! Muchas gracias!!

Saludos