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:
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...