Embedding source code in a source program
Option Strict On Imports System.ComponentModel Imports System.Runtime.InteropServices Imports System.Text Imports Shell32 Public Class Form1 Dim Shell_Application As Shell32.Shell Dim SelectedPath As String Dim DateTimeFormat As String Dim Time_Interval As TimeSpan Dim MyTaskFactory As TaskFactory Dim IsBusyFindingFiles As Boolean Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim RectangleConverter As New RectangleConverter() Dim a As Rectangle = CType(RectangleConverter.ConvertFromString(My.Settings.Form1Position), Rectangle) Tracer.Append($"{Me.StartPosition} {Me.WindowState} {Me.Location} {Me.Size} {a.Location} {a.Size}") Me.Location = a.L...