A Simple Console Splash Screen in Visual Basic

Daniel Carl VB Splash.vb

Module Logo
    Sub Print(Optional ByVal wait As Integer = 0)
        Dim logo_lines(6) As String
        Console.Title = "A Project By Daniel Carl"
        Console.ForegroundColor = ConsoleColor.Cyan
        logo_lines(0) = "                                             "
        logo_lines(1) = "    ___            _     __  _____         __"
        logo_lines(2) = "   / _ \___ ____  (_)__ / / / ___/__ _____/ /"
        logo_lines(3) = "  / // / _ `/ _ \/ / -_) / / /__/ _ `/ __/ / "
        logo_lines(4) = " /____/\_,_/_//_/_/\__/_/  \___/\_,_/_/ /_/  "
        logo_lines(5) = "                                             "
        logo_lines(6) = "                                             "
        Console.WriteLine()
        For line = 1 To logo_lines.Length()
            If wait <> 0 Then
                System.Threading.Thread.Sleep(wait)
            End If
            Console.Write(" ")
            If (line = 1) Or (line = logo_lines.Length) Then
                Console.BackgroundColor = ConsoleColor.DarkBlue
                Console.Write(" ")
                Console.Write(logo_lines(line - 1))
                Console.Write(" ")
            Else
                Console.BackgroundColor = ConsoleColor.DarkBlue
                Console.Write(" ")
                Console.BackgroundColor = ConsoleColor.Blue
                Console.Write(logo_lines(line - 1))
                Console.Write(" ")
            End If
            Console.BackgroundColor = ConsoleColor.DarkBlue
            Console.WriteLine(" ")
            Console.BackgroundColor = ConsoleColor.Black
        Next
        Console.ResetColor()
        Console.WriteLine()
    End Sub
End Module