Título da Dica: Ajustar o tamanho de um TextBox/ListBox quando o Form for redimensionado
Postada em 29/11/2001 por Charles
charles@charles.art.br
'para aumentar o tamanho de uma TextBox ou ListBox quando o Form for redimensionado utilize o seguinte código:
'em declarações:
Dim W As Integer Dim H As Integer
'na Sub Form_Load: Private Sub Form_Load()
W = Me.Width - list.Width H = Me.Height - list.Height
End Sub
'e no evento resize do formulario: Private Sub Form_Resize()
If Me.WindowState <> 1 Then
list.Width = Me.Width - W list.Height = Me.Height - H - 20 'no caso da altura coloca-se -20 pois desconta-se a altura do Caption do formulario
