VB让ListBox没有空行 VB移除ListBox空行

VB让ListBox没有空行，VB移除ListBox空行：

Dim N As Integer
For N = 0 To List.ListCount - 1                                             '循环遍历ListBox
    If List.List(N) = "" Then List.RemoveItem N                             '如果内容为空就移除
Next N

VB选中list第一行：
List1.Selected(0) = True

VB读取list当前选中项：
MsgBox List1.List(List1.ListIndex)