Sub Tray_Icon()
        With NotifyIcon1
            NotifyIcon1.ContextMenu = ContextMenu1
            .Icon = New Icon("1.ico")
            .Text = "Test Starter v1.0"
            .Visible = True
        End With