Untitled

Private Sub btn_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click, Button9.Click, Button16.Click, Button15.Click, Button14.Click, Button13.Click, Button12.Click, Button11.Click, Button10.Click
        Dim randumum As Integer
        sender.backcolor = Color.Blue
        randumum = CInt(Int(Rnd() * 16 + 1))

        If randumum = 1 Then
            Button1.BackColor = Color.Red
        End If
        If randumum = 2 Then
            Button2.BackColor = Color.Red
        End If


        If randumum = 3 Then
            Button3.BackColor = Color.Red

        End If
        If randumum = 4 Then
            Button4.BackColor = Color.Red

        End If
        If randumum = 5 Then
            Button5.BackColor = Color.Red

        End If
        If randumum = 6 Then
            Button6.BackColor = Color.Red

        End If
        If randumum = 7 Then
            Button7.BackColor = Color.Red

        End If
        If randumum = 8 Then
            Button8.BackColor = Color.Red

        End If







    End Sub
End Class