Я тут "гениальный 
" эсперимент провел, это не выход но заслуживает внимания. (По крайней мере не выкидывает и не виснет)
На первый взгляд это не по теме, но…
На форме размести такие элементы:
Command1, Command2, Timer1, Line1, List1
Имена не меняй, Свойства не имеют значения
А теперь
- Код: Выделить всё
Private Sub Command1_Click()
Timer1.Interval = 10
List1.SetFocus
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Form_Load()
AutoRedraw = True
Command1.Caption = "Start mini hook"
Command1.Move 0, 0, 1680, 375
Command2.Caption = "Stop mini hook"
Command2.Move 0, 375, 1680, 375
List1.Height = 0
List1.Left = -5000
With Line1
.Y1 = ScaleHeight / 2
.Y2 = ScaleHeight / 2
.X1 = 0
.X2 = ScaleWidth
End With
For i = 0 To 2
List1.AddItem "item" & i
Next
List1.TopIndex = 1
End Sub
Private Sub checkChange()
Select Case List1.TopIndex
Case 0: CHange (-1)
Case 2: CHange (1)
Case 1: Exit Sub
End Select
List1.TopIndex = 1
End Sub
Private Sub Timer1_Timer()
checkChange
End Sub
Private Sub CHange(direct As Integer)
Line1.Y1 = Line1.Y1 + direct * 100
Line1.Y2 = Line1.Y1
End Sub
И вот так без API-хуков. Проблем осталось много, но все-же…