For I = 1 To 6

    If LuftBallon(I) = 1 Then

	If ImagesCollide (Ballon,PosXballon(I),PosYballon(I),0,Flieger_1,PosXSpieler,PosYSpieler,0) Then
		End
	End If
	
	
	End If
	
Next

For I = 1 To 6

	
	If Luftballon(I) = 0 Then
	
		
		If Zeit2 + 700 < MilliSecs() Then
			Luftballon(I) = 1
			PosXBallon(I) = 850
			PosYBallon(I) = Rand(50,550)
			Ballonfarbe(I) = Rand(1,4)
			Zeit2 = MilliSecs()
		End If
		
		
	End If	

Next


If Zeit2 + 700 < MilliSecs() Then
	Zeit2 = MilliSecs()
End If



For I = 1 To 6
	
	If Luftballon(I) = 1 Then

		
				
			Select Ballonfarbe(I)
				Case 1 DrawImageRect Ballon, PosXBallon(I),PosYBallon(I),0,0,54,108
				Case 2 DrawImageRect Ballon, PosXBallon(I),PosYBallon(I),54,0,54,108
				Case 3 DrawImageRect Ballon, PosXBallon(I),PosYBallon(I),108,0,54,108
				Case 4 DrawImageRect Ballon, PosXBallon(I),PosYBallon(I),162,0,54,108
  			End Select
	
	
	End If


Next