Hiya,
Ive been struggling for a while trying to figure how out to Properly Move an object up or down using a For next loop, here is my current set up
Code:
Private Sub Shift()
For intX_direction = 0 To Me.ClientSize.Width
picBall.Left = intX_direction
Next
For intY_direction = 0 To Me.ClientSize.Height
picBall.Top = intY_direction
Next
and that code is then called upon in a Do loop
Code:
Private Sub picBall_Click(sender As Object, e As EventArgs) _
Handles picBall.Click
intX_direction = _RIGHT
intY_direction = _UP
Do
Shift()
If picBall.Left + picBall.Width > Me.Width Then
intX_direction -= intX_direction
ElseIf picBall.Left + picBall.Width < Me.Width Then
picBall.Left = 0
End If
If picBall.Top + picBall.Height > Me.Height Then
picBall.Top = intY_direction * -1
End If
Loop Until picBall.Left < 0
I apologize for my lack of knowledge before hand, Im still learning