Error en el heigth de un control....

[mdavila]

Hola, quiero dar el efecto que abre un control de una forma mas linda......
El tema es que la propiedad Height de la lista siempre me queda en 0 por mas que aumente.

Es un error del VS o estoy haciendo algo mal?

Public Sub AbrirLista()
lstErrores.BringToFront()
lstErrores.Visible = True
lstErrores.Width = 0
lstErrores.Height = 0
Dim T As Boolean = False

While Not T
If lstErrores.Width <= 351 Then
lstErrores.Width = lstErrores.Width + 1
End If

If lstErrores.Height <= 503 Then
lstErrores.Height = lstErrores.Height + 1
End If

If lstErrores.Width = 352 And lstErrores.Height = 504 Then
T = True
Else
System.Threading.Thread.Sleep(10)
End If


End While


End Sub