让LISTBOX中内容垂直居中。。

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_USER = &H400
Private Const LB_GETITEMHEIGHT = (WM_USER + 34)
Private Const LB_SETITEMHEIGHT = &H1A0
Private Const WM_SETREDRAW = &HB
Private Sub Form_Load()
  Dim i As Integer
  For i = 1 To 5
  List1.AddItem "演示 " + Format(i)
  Next
  i = SendMessage((List1.hwnd), LB_GETITEMHEIGHT, 0, &O0)
  i = i + 30
  i = SendMessage((List1.hwnd), LB_SETITEMHEIGHT, 0, ByVal i)
  i = SendMessage((List1.hwnd), WM_SETREDRAW, True, 0&)
End Sub
以上代码实现了LISTBOX高度修改，现在的问题是，那个消息能让字体垂直居中。

...

最简单的办法就是用一个只有一列的MSHFLEXGRID, 搞定.