is there a way to see if these 2 shapes are touching

[dimava]

hello all, I'm making this game where food is flying a person, and I want to make it so that when the food touches the person, the food desappears, and a point is added to the score this is the code that I have so far:

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

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Shape2.Top = Shape2.Top + 10
End Sub

for now I'm just testing everything with shapes, then I'm gonna replace the shapes with images