Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Distance = Int(Sqr((Y - (Shape1(0).Top + Shape1(0).Height \ 2)) ^ 2 + (X - (Shape1(0).Left + Shape1(0).Width \ 2)) ^ 2))
If Distance < Shape1(2).Height \ 2 Then
Score = Score + 10
ElseIf Distance < Shape1(1).Height...