¡hola

Por favor si alguien me puede ayudar, necesito ocultar la barra de desplazamiento vertical de un cuadro de lista en VBA

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowScrollBar Lib "user32" (ByVal hWnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

Private Const SB_HORZ = 0

Private Const SB_VERT = 1

Private Const SB_BOTH = 3



Private Sub ListBox1_Click()


End Sub

Private Sub UserForm_Initialize()

Dim lngMyHandle As Long

lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption)

    ShowScrollBar lngMyHandle, SB_BOTH, True

End Sub[/CODE]

Esta rutina si funciona, pero para el "Userform" se tendría que adaptarse al ListBox, pero no encuentro el " hWnd " para el ListBox

Que yo sepa, no se puede.