'the code that I think there is a problem with is labeled problemed code
'just so you know what is what here is the different objects and what there names in the code are
'shpblocker1 = user blocker
'shpt = the top wall
'shpb = the bottom wall
'shpball = the ball
'shpblocker2 isn't in the program yet but it doesn't make a diffrence right now

Option Explicit
'code for ball
Public intleftright As Integer
Public intupdown As Integer
Public intmoveby As Integer

'key code for blocker1
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyE Then
    shpblocker1.Top = shpblocker1.Top - 50
ElseIf KeyCode = vbKeyD Then
    shpblocker1.Top = shpblocker1.Top + 50
End If
End Sub

Private Sub Form_Load()
'code for movement of ball
intleftright = 1
intupdown = 1
intmoveby = 10

End Sub

[color=crimson]'PROBLEM CODE
Private Sub Timer1_Timer()
'code for shpblocker1 collisions with walls
If shpblocker1.Top = shpt.Top + shpt.Height Then
    shpblocker1 = 0
ElseIf shpblocker1.Top + shpblocker1.Height > shpb.Top Then
    shpblocker1 = 0
End If
End Sub[/color]

Private Sub tmr1_Timer()
'code for ball to wall colisions
If (shpball.Left + shpball.Width > Form1.Left + Form1.Width) Then
    intleftright = -1
End If

If shpball.Top + shpball.Height > shpb.Top Then
    intupdown = -1
End If

If shpball.Left < shpblocker1.Left + shpblocker1.Width Then
    intleftright = 1
End If

If shpball.Top < shpt.Top + shpt.Height Then
    intupdown = 1
End If

  shpball.Left = shpball.Left + (intleftright * intmoveby)
shpball.Top = shpball.Top + (intupdown * intmoveby)

End Sub

'PROBLEM CODE
Private Sub tmr2_Timer()
'code for blocker1 to wall colisions
If shpblocker1.Top = shpt.Top + shpt.Height Then
    shpblocker1 = shpblocker1 + 1
ElseIf shpblocker1.Top + shpblocker1.Height > shpb.Top Then
    shpblocker1 -1
End If
End Sub