主题：怎么让list视图下，滚动条为纵向的

全局代码

<DLLImport("user32")> _
Public Function ShowScrollBar(hwnd As IntPtr, wBar As Integer, bShow As Integer) As Integer
End Function

调用代码

    Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
    Dim blvw = lvw.basecontrol
    blvw.Scrollable = False
    ShowScrollBar(blvw.Handle, 1, 1)
    lvw.View = ViewMode.List