Listbox без границ

[killerb]

Возможно ли в реале изменить цвет границы ListBox'а, либо вообще ее убрать ?

[Alex Mals]

Private Sub Form_Load()
List1.Appearance = 0
dwStyles = GetWindowLong(List1.hWnd, GWL_STYLE)
dwStyles = dwStyles And Not WS_BORDER
SetWindowLong List1.hWnd, GWL_STYLE, dwStyles
End Sub

[slavutich_red]

Private Sub Form_Load()

List1.Appearance = 0

dwStyles = GetWindowLong(List1.hWnd, GWL_STYLE)

dwStyles = dwStyles And Not WS_BORDER

SetWindowLong List1.hWnd, GWL_STYLE, dwStyles

End Sub

ПОДСКАЖИТЕ кто знает в чем может быть проблема:
нужно убрать границы у lstUchred: ListBox, для этого по приведенному примеру прописал:
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Dim dwStyles As Long

Private Sub Form_Load()
lstUchred.Appearance = 0
dwStyles = GetWindowLong(lstUchred.hwnd, GWL_STYLE)
dwStyles = dwStyles And Not WS_BORDER
SetWindowLong lstUchred.hwnd, GWL_STYLE, dwStyles

соответственно компилирую программу, ошибок не выдает, но и границы не стирает (у листбокса остаются черные границы-рамка)

Что я делаю не так? как убрать эту рамку?

[Don Leno]

Private Const WS_BORDER = &H800000
Private Const GWL_STYLE = (-16)

Забыл добавить две константы.