[RESOLVED] object collision
I want to make a Ball fall and make it stop when it hits the ground. Now I tried this code below, but the ball doesn't move. It thinks the 'collide' is not nothing. But it does not collide. What did I do wrong? Thanks
Code:
Dim objects() As PictureBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objects = New PictureBox() {Ball, Ground}
End Sub
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim collide As PictureBox = objects.FirstOrDefault(Function(o) o.Bounds.IntersectsWith(Ball.Bounds))
If collide IsNot Nothing Then
Else
Ball.top = Ball.top + 2
End If
End Sub
End Class