[vb6] picture beweegd niet?

[MWP]

Ik probeer een versie van breakout te maken waarbij de bal 8 kanten uitkan, namelijk:
N-O-Z-W-NO-ZO-ZW-NW,
De timer staat op 1 mm afgesteld, hij moet dan inlezen welke kant de bal opgaat,
vervolgens de bal die kant opsturen,
De form_load zegt dat de bal kant "twee" op moet gaan,
kant twee zou de bal richting Noord moeten oplaten gaan,
ze gaan echter allemaal (0 t/m 7) richting Z
dit is de code

code:

Private Sub bal_beweeg_Timer()
Select Case bal_beweeg_2
Case 0
bal.Top = bal.Top + 25
Case 1
bal.Left = bal.Left - 25
Case 2
bal.top = bal.top - 25
case 3
bal.Left = bal.Left + 25
Case 4
bal.Top = bal.Top + 25
bal.Left = bal.Left - 25
Case 5
bal.Top = bal.Top - 25
bal.Left = bal.Left - 25
Case 6
bal.Top = bal.Top + 25
bal.Left = bal.Left + 25
Case 7
bal.Top = bal.Top + 25
bal.Left = bal.Left + 25
End Select
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
balk.Left = balk.Left - 100
Case vbKeyRight
balk.Left = balk.Left + 100
End Select
End Sub

Private Sub Form_Load()
Dim bal_beweeg_2
bal_beweeg_2 = 2
End Sub

Wat doe ik fout,
(dit is alleen de code die de bal moet bewegen, de andere code is er nog niet)

[Super_ik]

omdat je bal_beweeg_2 in een sub declareerd, kun je hem nergens anders zien, je moet hem gewoon ergens (bovenaan) in het programma declareren.
zet ook eens option explicit boven je programma's dan hat je deze faut al gezien