* 2개의 폼을 사용함

* 실행하면 제어창은 안보이고 실행창만 보임

* 실핼창 더블클릭하면 실행창 종료되고 제어창 보임

<Form1 - 제어창>

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Hide()

        Form2.Show()

    End Sub

    Private Sub btn_ForColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ForColor.Click

        forColorDialog.ShowDialog()

        btn_ForColor.BackColor = forColorDialog.Color

        lbl_Preview.ForeColor = forColorDialog.Color

    End Sub

    Private Sub btn_BackColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_BackColor.Click

        backColorDialog.ShowDialog()

        btn_BackColor.BackColor = backColorDialog.Color

        lbl_Preview.BackColor = backColorDialog.Color

    End Sub

    Private Sub btn_Font_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Font.Click

        FontDialog1.ShowDialog()

        lbl_Preview.Font = FontDialog1.Font

    End Sub

End Class

<Form2 - 실행창>

Public Class Form2

    Dim my_x As Integer = CInt(Form1.form2_X.Text)

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Text = Form1.TextBox1.Text

        Timer1.Enabled = True

        Timer1.Interval = CInt(Form1.timer_int.Text)

        Me.Width = CInt(Form1.form2_X.Text)

        Me.Height = CInt(Form1.form2_Y.Text)

        Me.ForeColor = Form1.lbl_Preview.ForeColor

        Me.BackColor = Form1.lbl_Preview.BackColor

        Label1.Font = Form1.lbl_Preview.Font

        Label2.Text = Timer1.Interval.ToString

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If Form1.CheckBox1.Checked = False Then

            my_x -= 1

            Label1.Location = New Point(my_x, 50)

        Else

            my_x -= 1

            Label1.Location = New Point(my_x, 50)

            If (my_x Mod 2) = 1 Then

                Label1.Hide()

            Else

                Label1.Show()

            End If

        End If

        If (my_x + Label1.Width) < 0 Then

            my_x = Me.Width

        End If

    End Sub

    Private Sub Form2_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed

        Form1.Show()

    End Sub

* 기본 동작 코드

Public Class Form1

    Dim my_x As Integer = Me.Width

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Timer1.Enabled = True

        Timer1.Interval = 5

        Label1.ForeColor = Color.Red

        Me.BackColor = Color.Black

    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

        my_x -= 3

        Label1.Location = New Point(my_x, 50)

        If (my_x + (Label1.Width)) <= 0 Then

            my_x = Me.Width

        End If

    End Sub

End Class