Private Sub Tank_VS_Tank_KeyDown(ByVal sender As Object, ByVal e As ) Handles Me.KeyDowĬase Is = Keys.W 'moves tank1 up and changes the counter to 3 and the image to tank face up Select the declarations for the form 1 code and select keydown Key down detects if a key is down the code goes after private sub tank_vs_tank_keydown Me.Controls.Add(b(i)) 'adds tank blockers 'Private Sub Tank_VS_Tank_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'ī(i).BackColor = Color.Khaki 'makes color of blocker khaki these will act as our blocks the code will go after the private sub statment The following is code for 17 pictureboxes. If k = 4 Then Timer8.Enabled = True 'detects if tank1 face down If k = 3 Then Timer7.Enabled = True 'detects if tank2 face up If k = 2 Then Timer6.Enabled = True 'detects if tank2 face left If k = 1 Then Timer5.Enabled = True 'detects if tank2 face right Timer16.Enabled = False 'stops tank move when right key up Timer15.Enabled = False 'stops tank move when left key up Timer14.Enabled = False 'stops tank move when down key up Timer13.Enabled = False 'stops tank move when up key up

If s = 4 Then Timer4.Enabled = True 'detects if tank1 face down If s = 3 Then Timer3.Enabled = True 'detects if tank1 face up If s = 2 Then Timer2.Enabled = True 'detects if tank1 face left If s = 1 Then Timer1.Enabled = True 'detects if tank1 face right Timer12.Enabled = False 'stops tank move when a key up Timer11.Enabled = False 'stops tank move when d key up Timer10.Enabled = False 'stops tank move when s key up Timer9.Enabled = False 'stops tank move when w key up Key up is a handler that detects when a key is let upĭouble click form2 and select the declaration toolbar at the top of the code and select keyup add the following code after the dimensions:

Atari battle tanks