Glad to see that you fixed the extra line-feed problem. :) However, now it kills double-spaced lines when they're supposed to be there:
becomes...:Code:Option Explicit
Private Sub cmdDown_Click()
If List1.ListIndex = -1 Then List1.ListIndex = 0
If List1.ListIndex <> List1.ListCount - 1 Then
List1.ListIndex = List1.ListIndex + 1
End If
End Sub
Private Sub cmdUP_Click()
If List1.ListIndex = -1 Then List1.ListIndex = 0
If List1.ListIndex <> 0 Then
List1.ListIndex = List1.ListIndex - 1
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 50
List1.AddItem "Item #" & i
Next
End Sub
VB Code:
Option Explicit Private Sub cmdDown_Click() If List1.ListIndex = -1 Then List1.ListIndex = 0 If List1.ListIndex <> List1.ListCount - 1 Then List1.ListIndex = List1.ListIndex + 1 End If End Sub Private Sub cmdUP_Click() If List1.ListIndex = -1 Then List1.ListIndex = 0 If List1.ListIndex <> 0 Then List1.ListIndex = List1.ListIndex - 1 End If End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 50 List1.AddItem "Item #" & i Next End Sub
