Dim prediction As Integer
Dim continuePlaying As Boolean
While bank > 0 Or continuePlaying = False
Console.WriteLine("You have £" & bank & " in the bank")
Console.WriteLine("How much do you want to bet?")
stake = Console.ReadLine()
Console.WriteLine("What number will be rolled? (1-6)")
prediction = Console.ReadLine()
Console.WriteLine("You rolled a " & actual)
If actual = prediction Then
Console.WriteLine("You have won £" & (stake * 6))
Console.WriteLine("You have lost all of your money.")
Console.WriteLine("You have lost £" & stake)
Console.WriteLine("Do you want to quit? (y/n)")
choice = Console.ReadLine()
Console.ForegroundColor = ConsoleColor.DarkYellow
Console.BackgroundColor = ConsoleColor.Black
Console.WriteLine("Game over!")
Console.ForegroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.White
Console.BackgroundColor = ConsoleColor.DarkRed
Console.ForegroundColor = ConsoleColor.DarkBlue
Console.BackgroundColor = ConsoleColor.White