Imports System
Imports System.Windows.Forms
Imports System.ComponentModel

Class ArtMove
    Inherits Form
    Private timer1 As Timer
    Private components As IContainer
    Private cnt As Integer
    Private num As Integer

    Private art As String
    Private Const line As String = "�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�Q"
    Private Const art1 As String = "�Q|�P|��"
    Private Const art2 As String = "��|�P|�Q"

    Public Sub New()
        System.Console.Write((line + ControlChars.Cr))

        MyBase.WindowState = FormWindowState.Minimized

        components = New Container

        timer1 = New System.Windows.Forms.Timer(Me.components)
        timer1.Enabled = True
        timer1.Interval = 50
        AddHandler Me.timer1.Tick, AddressOf timer1_Tick

        num = 1
        art = art1
    End Sub

    Private Sub timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
        If cnt > 34 Then
            num = -1
            art = art2
            System.Console.WriteLine("")
        End If

        If cnt < 0 Then
            num = 1
            art = art1
            System.Console.WriteLine("")
            System.Console.Write((line + ControlChars.Cr))
        End If

        cnt += num

        For i As Integer = 0 To cnt - 1
            System.Console.Write("�Q")
        Next i

        System.Console.Write((art + ControlChars.Cr))
    End Sub

    Public Overloads Shared Sub Main(ByVal args() As String)
        Application.Run(New ArtMove)
    End Sub
End Class