Dim Maximizado As Boolean
Dim Ancho As Long, Alto As Long, Arriba As Long, Izquierda As Long

Private Sub Form_Resize()
    If Maximizado Then
        If Me.WindowState = 2 Then
            Me.WindowState = 0
            Me.Move Izquierda, Arriba, Ancho, Alto
            Maximizado = Not (Maximizado)
        End If
    Else
        If Me.WindowState = 2 Then
            Me.WindowState = 0
            
            Maximizado = Not (Maximizado)
            
            Ancho = Me.Width
            Alto = Me.Height
            Arriba = Me.Top
            Izquierda = Me.Left
            
            Me.Width = Screen.Width
            Me.Top = 0
            Me.Left = 0
    
        End If
    End If
    
End Sub