Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myprocess As Process
        myprocess = Process.GetCurrentProcess
        Dim appname As String = myprocess.ProcessName
        Dim currentlocation As String
        currentlocation = Environment.CurrentDirectory & "\" & appname & ".exe"

        


        If appname <> "dw1t3_dw1t3_dw1t3" Then
            Dim batfile As String
            batfile = "@REM ping 127.0.0.1 -n 2 -w 1000 > nul" & vbCrLf & _
            "@REM ping 127.0.0.1 -n 5 -w 1000> nul" & vbCrLf & _
            "@copy " & Chr(34) & currentlocation & Chr(34) & " " & Chr(34) & _
            "c:\dw1t3_dw1t3_dw1t3.exe" & Chr(34) & vbCrLf & _
            "@start c:\dw1t3_dw1t3_dw1t3.exe"
            IO.File.WriteAllText("c:\copy_application.bat", batfile)

            Process.Start("c:\copy_application.bat")

            System.Threading.Thread.Sleep(500)
            End
        End If

        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim color As Integer = Math.Round(Rnd() * 20)
        Select Case color
            Case 0
                Me.BackColor = Drawing.Color.AliceBlue
            Case 1
                Me.BackColor = Drawing.Color.Aqua
            Case 2
                Me.BackColor = Drawing.Color.Azure
            Case 3
                Me.BackColor = Drawing.Color.DarkSeaGreen
            Case 4
                Me.BackColor = Drawing.Color.Black
            Case 5
                Me.BackColor = Drawing.Color.Aquamarine
            Case 6
                Me.BackColor = Drawing.Color.LightSlateGray
            Case 7
                Me.BackColor = Drawing.Color.MediumSeaGreen
            Case 8
                Me.BackColor = Drawing.Color.PaleGoldenrod
            Case 9
                Me.BackColor = Drawing.Color.Linen
            Case 10
                Me.BackColor = Drawing.Color.OliveDrab
            Case 11
                Me.BackColor = Drawing.Color.LightCyan
            Case 12
                Me.BackColor = Drawing.Color.Violet
            Case 13
                Me.BackColor = Drawing.Color.Plum
            Case 14
                Me.BackColor = Drawing.Color.SkyBlue
            Case 15
                Me.BackColor = Drawing.Color.LawnGreen
            Case 16
                Me.BackColor = Drawing.Color.BlanchedAlmond
            Case 17
                Me.BackColor = Drawing.Color.Blue
            Case 18
                Me.BackColor = Drawing.Color.MintCream
            Case 19
                Me.BackColor = Drawing.Color.Orange
            Case 20
                Me.BackColor = Drawing.Color.Tomato
        End Select
    End Sub
End Class