Forms autoajustables

[buxforever]

Me preguntaba si alguien tiene una idea de como se realiza una form autoajustable de acuerdo a la resolucion de cada monitor...

Por ejemplo

Tengo un form con un listbox.... y al momento de darle maximizar dentro del form se autoajuste el listbox de acuerdo al tamaño del form....

[pkj]

El tema está en ajustarlo dentro del evento Resize del Form:

Código vb:

Private Sub Form_Resize()
  If Form1.WindowState <> vbMinimized Then
    List1.Width = Form1.Width - 300  ' Le restamos 300 p.ej. para que no se salga del form
    List1.Height = Form1.Height - 300
  End If
End Sub
 

Saludos

[buxforever]

Ok gracias por resolverme esa duda