Maximizar solo el ancho de un form

[rfacug]

Holas a todos los programadores de vb y usuarios del foro, hoy estoy tratando de maximizar solo el ancho de un form. Alguien me pueda guiar un poco, por que no le encuentro la vuelta.

Saludos y gracias.

[CeLaYa]

espero que re refieras a que cuando le das en el boton maximizar el form solo se estire a lo ancho, si es así podrías hacer lo soguiente:

Código [Seleccionar] Expandir


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


espero te sirva de algo...