Public Class ComicImagingForm Inherits System.Windows.Forms.Form Public MyAccess As New ADODB.Connection Public ComicBooksUnique As New ADODB.Recordset Public ComicBooks As New ADODB.Recordset Public ComicBooksTemp As New ADODB.Recordset Public ComicNames As New ADODB.Recordset Public ComicBookPages As New ADODB.Recordset Public ComicPublisher As New ADODB.Recordset Public PictureBoxWidth As Long Public PictureBoxHeight As Long Public formloading As Boolean = True Public WebIO As IO.StreamWriter Public GuestBookWebIO As IO.StreamWriter Public WebTitleIO As IO.StreamWriter Friend WithEvents MakeAllButton As System.Windows.Forms.Button Friend WithEvents WallPaperButton As System.Windows.Forms.Button Friend WithEvents PhotoButton As System.Windows.Forms.Button Public CREDITSIO As IO.StreamWriter Public DVDEDIO As IO.StreamWriter Friend WithEvents CalendarButton As System.Windows.Forms.Button Friend WithEvents FaceButton As System.Windows.Forms.Button Friend WithEvents ComicAnnualCheckBox As System.Windows.Forms.CheckBox Friend WithEvents AnnualLabel As System.Windows.Forms.Label Friend WithEvents ComicBookCrew As System.Windows.Forms.TextBox Friend WithEvents SeekButton As System.Windows.Forms.Button Friend WithEvents MakeCurrentCover As System.Windows.Forms.Button Friend WithEvents MakeCurrentAll As System.Windows.Forms.Button Public DVDListEDIO As IO.StreamWriter Public ImagingDirectory As String = "comics" Public ImagingDatabase As String = "ComicsCollection.mdb" Public ImagingRootDirectory As String = "c:\" Public BackUpRootDirectory As String = "Z:\" Public DVDRootDirectory As String = "Z:\" Public Sub processimage(ByVal filename As String) Dim WiaCamImage As New WIA.CommonDialog ' WiaCamImage.ShowSelectDevice() Dim WIADEVICE As WIA.Device WIADEVICE = WiaCamImage.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, True, False) ' WiaCamImage. ' Dim WiaCamDevice As WIA.DeviceInfos ' Dim WIACAM As WIA.DeviceInfo ' WiaCamDevice = WiaCamImage.DeviceInfos Dim wiaimage As New WIA.ImageFile Dim wiaimagenew As New WIA.ImageFile ' Dim savedimages As WIA.ImageFile ' MsgBox(savedimages.FileExtension) ' WIACAM = WiaCamDevice.create ' Dim WIADEVICE As WIA.Device ' Dim WIADEVICE As WIA.Device ' WIADEVICE = WIACAM.Connect ' MsgBox(WIADEVICE.DeviceID) ' MsgBox(WiaCamImage.Devices().Count) ' MsgBox(WiaCamImage.Devices.Item(1).NAME) ' WiaCamDevice = WiaCamImage.Devices.Item(0) ' WIACAM = WiaCamDevice.Create() ' Dim WIADEVICE As WIA.Device ' WIADEVICE = WIACAM.Connect ' WIADEVICE MsgBox(wiaimage.FileExtension) ' WiaCamImage.ShowSelectItems(WIADEVICE, WIA.WiaImageIntent.ColorIntent, WIA.WiaImageBias.MaximizeQuality, True, True, False) MsgBox(WIADEVICE.Items.Count) ' wiaimage = WIADEVICE.Items(0).Transfer ' WIADEVICE.Items(0).Transfer() ' wiaimage.SaveFile("z:\comics\testtest.bmp") ' testwia.Transfer() ' WiaCamImage.ShowItemProperties(WIADEVICE.Items(0).WiaItem MsgBox(WiaCamImage.ShowAcquireImage.FileExtension) WiaCamImage.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, WIA.WiaImageIntent.ColorIntent, WIA.WiaImageBias.MaximizeQuality, , False, True, True) Try ' WiaCamCollection = WIACAM.GetItemsFromUI(WIALib.WiaFlag.UseCommonUI, WIALib.WiaIntent.MaximizeQuality) wiaimage = WiaCamImage.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, WIA.WiaImageIntent.ColorIntent, WIA.WiaImageBias.MaximizeQuality, , True, True, True) Catch scanerror As Exception GoTo endsubr End Try wiaimage.SaveFile(ImagingRootDirectory & ImagingDirectory & "\tempfile.bmp") ' wIAiMAGE.Transfer(ImagingRootDirectory & ImagingDirectory & "\tempfile.bmp", False) REM SavedPicture.SaveFile(ImagingRootDirectory & ImagingDirectory & "\tempfile.bmp") Dim newjpeg As System.Drawing.Image ' use streamreader and writer to encrypt images for retrieval by asp by function to read encrypted file to temporary jpeg file newjpeg = System.Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\tempfile.bmp") newjpeg.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg) wiaimage = Nothing ' WiaCamCollection = Nothing newjpeg.Dispose() System.IO.File.Delete(ImagingRootDirectory & ImagingDirectory & "\tempfile.bmp") endsubr: End Sub Public Sub getimage(ByVal filename As String) Dim WiaCamImage As New WIA.CommonDialog ' Dim WiaCamDevice As WIA.DeviceInfos ' Dim WIACAM As WIA.DeviceInfo ' WiaCamDevice = WiaCamImage.DeviceInfos Dim wiaimage As New WIA.ImageFile REM MsgBox(WiaCamImage.Devices().Count) REM MsgBox(WiaCamImage.Devices.Item(1).NAME) ' WiaCamDevice = WiaCamImage.Devices.Item(0) ' WIACAM = WiaCamDevice.Create() ' Dim WIADEVICE As WIA.Device ' WIADEVICE = WIACAM.Connect ' WIADEVICE. Try ' WiaCamCollection = WIACAM.GetItemsFromUI(WIALib.WiaFlag.UseCommonUI, WIALib.WiaIntent.MaximizeQuality) wiaimage = WiaCamImage.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, WIA.WiaImageIntent.ColorIntent, WIA.WiaImageBias.MaximizeQuality, , False, True, True) Catch scanerror As Exception GoTo endsubr End Try wiaimage.SaveFile(ImagingRootDirectory & ImagingDirectory & "\tempfile.bmp") ' wIAiMAGE.Transfer(ImagingRootDirectory & ImagingDirectory & "\tempfile.bmp", False) REM SavedPicture.SaveFile(ImagingRootDirectory & ImagingDirectory & "\tempfile.bmp") Dim newjpeg As System.Drawing.Image ' use streamreader and writer to encrypt images for retrieval by asp by function to read encrypted file to temporary jpeg file newjpeg = System.Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\tempfile.bmp") newjpeg.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg) wIAiMAGE = Nothing ' WiaCamCollection = Nothing newjpeg.Dispose() System.IO.File.Delete(ImagingRootDirectory & ImagingDirectory & "\tempfile.bmp") endsubr: End Sub #Region " Windows Form Designer generated code " Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents AddCover As System.Windows.Forms.Button Friend WithEvents ComicBookNumber As System.Windows.Forms.TextBox Friend WithEvents ComicBookName As System.Windows.Forms.ComboBox Friend WithEvents ComicBookYear As System.Windows.Forms.TextBox Friend WithEvents AddPage As System.Windows.Forms.Button Friend WithEvents ComicBookNumberofPages As System.Windows.Forms.TextBox Friend WithEvents ComicBookPublisher As System.Windows.Forms.ComboBox Friend ComicPictureBox() As System.Windows.Forms.PictureBox Friend WithEvents ComicBookID As System.Windows.Forms.TextBox Friend WithEvents MakeWeb As System.Windows.Forms.Button Friend WithEvents ComicBookPrice As System.Windows.Forms.TextBox Friend WithEvents ComicBookValue As System.Windows.Forms.TextBox Friend WithEvents FirstRecord As System.Windows.Forms.Button Friend WithEvents PreviousRecord As System.Windows.Forms.Button Friend WithEvents NextRecord As System.Windows.Forms.Button Friend WithEvents LastRecord As System.Windows.Forms.Button Friend WithEvents NewRecord As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents ComicMemoTextBox As System.Windows.Forms.TextBox Private Sub InitializeComponent() Me.AddCover = New System.Windows.Forms.Button() Me.ComicBookNumber = New System.Windows.Forms.TextBox() Me.ComicBookName = New System.Windows.Forms.ComboBox() Me.ComicBookYear = New System.Windows.Forms.TextBox() Me.AddPage = New System.Windows.Forms.Button() Me.ComicBookNumberofPages = New System.Windows.Forms.TextBox() Me.ComicBookPublisher = New System.Windows.Forms.ComboBox() Me.ComicBookID = New System.Windows.Forms.TextBox() Me.MakeWeb = New System.Windows.Forms.Button() Me.ComicBookPrice = New System.Windows.Forms.TextBox() Me.ComicBookValue = New System.Windows.Forms.TextBox() Me.FirstRecord = New System.Windows.Forms.Button() Me.PreviousRecord = New System.Windows.Forms.Button() Me.NextRecord = New System.Windows.Forms.Button() Me.LastRecord = New System.Windows.Forms.Button() Me.NewRecord = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.ComicMemoTextBox = New System.Windows.Forms.TextBox() Me.MakeAllButton = New System.Windows.Forms.Button() Me.WallPaperButton = New System.Windows.Forms.Button() Me.PhotoButton = New System.Windows.Forms.Button() Me.CalendarButton = New System.Windows.Forms.Button() Me.FaceButton = New System.Windows.Forms.Button() Me.ComicAnnualCheckBox = New System.Windows.Forms.CheckBox() Me.AnnualLabel = New System.Windows.Forms.Label() Me.ComicBookCrew = New System.Windows.Forms.TextBox() Me.SeekButton = New System.Windows.Forms.Button() Me.MakeCurrentCover = New System.Windows.Forms.Button() Me.MakeCurrentAll = New System.Windows.Forms.Button() Me.WallPaperEach = New System.Windows.Forms.Button() Me.CloseButton = New System.Windows.Forms.Button() Me.MakeMoeButton = New System.Windows.Forms.Button() Me.WallPaperAll = New System.Windows.Forms.Button() Me.LandscapeButton = New System.Windows.Forms.Button() Me.BarGraphButton = New System.Windows.Forms.Button() Me.GolfFlagButton = New System.Windows.Forms.Button() Me.FloorWalkButton = New System.Windows.Forms.Button() Me.AgricultureButton = New System.Windows.Forms.Button() Me.DeedTreeButton = New System.Windows.Forms.Button() Me.PlankButton = New System.Windows.Forms.Button() Me.BenFrank = New System.Windows.Forms.Button() Me.DeathTowerButton = New System.Windows.Forms.Button() Me.WindowCling = New System.Windows.Forms.Button() Me.LifeCircle = New System.Windows.Forms.Button() Me.HandCard = New System.Windows.Forms.Button() Me.LineArtButton = New System.Windows.Forms.Button() Me.TeleCord = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'AddCover ' Me.AddCover.Font = New System.Drawing.Font("Courier New", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.AddCover.Location = New System.Drawing.Point(2142, 0) Me.AddCover.Name = "AddCover" Me.AddCover.Size = New System.Drawing.Size(375, 55) Me.AddCover.TabIndex = 7 Me.AddCover.Text = "Add Front Page" ' 'ComicBookNumber ' Me.ComicBookNumber.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicBookNumber.Location = New System.Drawing.Point(416, 76) Me.ComicBookNumber.Name = "ComicBookNumber" Me.ComicBookNumber.Size = New System.Drawing.Size(666, 53) Me.ComicBookNumber.TabIndex = 2 ' 'ComicBookName ' Me.ComicBookName.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicBookName.Location = New System.Drawing.Point(416, 0) Me.ComicBookName.Name = "ComicBookName" Me.ComicBookName.Size = New System.Drawing.Size(666, 50) Me.ComicBookName.TabIndex = 1 ' 'ComicBookYear ' Me.ComicBookYear.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicBookYear.Location = New System.Drawing.Point(416, 153) Me.ComicBookYear.Name = "ComicBookYear" Me.ComicBookYear.Size = New System.Drawing.Size(666, 53) Me.ComicBookYear.TabIndex = 3 ' 'AddPage ' Me.AddPage.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.AddPage.Location = New System.Drawing.Point(2142, 76) Me.AddPage.Name = "AddPage" Me.AddPage.Size = New System.Drawing.Size(375, 55) Me.AddPage.TabIndex = 8 Me.AddPage.Text = "Add Page" ' 'ComicBookNumberofPages ' Me.ComicBookNumberofPages.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicBookNumberofPages.Location = New System.Drawing.Point(2142, 153) Me.ComicBookNumberofPages.Name = "ComicBookNumberofPages" Me.ComicBookNumberofPages.Size = New System.Drawing.Size(375, 53) Me.ComicBookNumberofPages.TabIndex = 9 ' 'ComicBookPublisher ' Me.ComicBookPublisher.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicBookPublisher.Location = New System.Drawing.Point(416, 229) Me.ComicBookPublisher.Name = "ComicBookPublisher" Me.ComicBookPublisher.Size = New System.Drawing.Size(666, 50) Me.ComicBookPublisher.TabIndex = 4 ' 'ComicBookID ' Me.ComicBookID.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicBookID.Location = New System.Drawing.Point(707, 305) Me.ComicBookID.Name = "ComicBookID" Me.ComicBookID.Size = New System.Drawing.Size(229, 53) Me.ComicBookID.TabIndex = 8 ' 'MakeWeb ' Me.MakeWeb.Font = New System.Drawing.Font("Courier New", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MakeWeb.Location = New System.Drawing.Point(2142, 229) Me.MakeWeb.Name = "MakeWeb" Me.MakeWeb.Size = New System.Drawing.Size(375, 55) Me.MakeWeb.TabIndex = 10 Me.MakeWeb.Text = "Process Posts" ' 'ComicBookPrice ' Me.ComicBookPrice.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicBookPrice.Location = New System.Drawing.Point(1352, 0) Me.ComicBookPrice.Name = "ComicBookPrice" Me.ComicBookPrice.Size = New System.Drawing.Size(354, 53) Me.ComicBookPrice.TabIndex = 5 ' 'ComicBookValue ' Me.ComicBookValue.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicBookValue.Location = New System.Drawing.Point(1352, 76) Me.ComicBookValue.Name = "ComicBookValue" Me.ComicBookValue.Size = New System.Drawing.Size(354, 53) Me.ComicBookValue.TabIndex = 6 ' 'FirstRecord ' Me.FirstRecord.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FirstRecord.Location = New System.Drawing.Point(0, 305) Me.FirstRecord.Name = "FirstRecord" Me.FirstRecord.Size = New System.Drawing.Size(354, 55) Me.FirstRecord.TabIndex = 11 Me.FirstRecord.Text = "First" ' 'PreviousRecord ' Me.PreviousRecord.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.PreviousRecord.Location = New System.Drawing.Point(354, 305) Me.PreviousRecord.Name = "PreviousRecord" Me.PreviousRecord.Size = New System.Drawing.Size(353, 55) Me.PreviousRecord.TabIndex = 12 Me.PreviousRecord.Text = "Previous" ' 'NextRecord ' Me.NextRecord.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.NextRecord.Location = New System.Drawing.Point(936, 305) Me.NextRecord.Name = "NextRecord" Me.NextRecord.Size = New System.Drawing.Size(354, 55) Me.NextRecord.TabIndex = 13 Me.NextRecord.Text = "Next" ' 'LastRecord ' Me.LastRecord.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LastRecord.Location = New System.Drawing.Point(1290, 305) Me.LastRecord.Name = "LastRecord" Me.LastRecord.Size = New System.Drawing.Size(353, 55) Me.LastRecord.TabIndex = 14 Me.LastRecord.Text = "Last" ' 'NewRecord ' Me.NewRecord.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.NewRecord.Location = New System.Drawing.Point(1643, 305) Me.NewRecord.Name = "NewRecord" Me.NewRecord.Size = New System.Drawing.Size(354, 55) Me.NewRecord.TabIndex = 15 Me.NewRecord.Text = "New" ' 'Label1 ' Me.Label1.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(21, 76) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(270, 58) Me.Label1.TabIndex = 16 Me.Label1.Text = "Number" ' 'Label2 ' Me.Label2.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Location = New System.Drawing.Point(21, 19) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(270, 57) Me.Label2.TabIndex = 17 Me.Label2.Text = "Name" ' 'Label3 ' Me.Label3.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.Location = New System.Drawing.Point(21, 153) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(270, 57) Me.Label3.TabIndex = 18 Me.Label3.Text = "Year" ' 'Label4 ' Me.Label4.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.Location = New System.Drawing.Point(21, 229) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(270, 57) Me.Label4.TabIndex = 19 Me.Label4.Text = "Publisher" ' 'Label5 ' Me.Label5.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.Location = New System.Drawing.Point(1082, 19) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(270, 57) Me.Label5.TabIndex = 20 Me.Label5.Text = "Price" ' 'Label6 ' Me.Label6.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label6.Location = New System.Drawing.Point(1082, 76) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(270, 58) Me.Label6.TabIndex = 21 Me.Label6.Text = "Value" ' 'ComicMemoTextBox ' Me.ComicMemoTextBox.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicMemoTextBox.Location = New System.Drawing.Point(1102, 172) Me.ComicMemoTextBox.Multiline = True Me.ComicMemoTextBox.Name = "ComicMemoTextBox" Me.ComicMemoTextBox.Size = New System.Drawing.Size(604, 114) Me.ComicMemoTextBox.TabIndex = 22 ' 'MakeAllButton ' Me.MakeAllButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MakeAllButton.Location = New System.Drawing.Point(2142, 377) Me.MakeAllButton.Name = "MakeAllButton" Me.MakeAllButton.Size = New System.Drawing.Size(367, 57) Me.MakeAllButton.TabIndex = 23 Me.MakeAllButton.Text = "MakeAll" ' 'WallPaperButton ' Me.WallPaperButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.WallPaperButton.Location = New System.Drawing.Point(2142, 305) Me.WallPaperButton.Name = "WallPaperButton" Me.WallPaperButton.Size = New System.Drawing.Size(375, 55) Me.WallPaperButton.TabIndex = 24 Me.WallPaperButton.Text = "WallPaper" ' 'PhotoButton ' Me.PhotoButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.PhotoButton.Location = New System.Drawing.Point(840, 374) Me.PhotoButton.Name = "PhotoButton" Me.PhotoButton.Size = New System.Drawing.Size(374, 55) Me.PhotoButton.TabIndex = 25 Me.PhotoButton.Text = "Photo" ' 'CalendarButton ' Me.CalendarButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CalendarButton.Location = New System.Drawing.Point(1620, 377) Me.CalendarButton.Name = "CalendarButton" Me.CalendarButton.Size = New System.Drawing.Size(374, 55) Me.CalendarButton.TabIndex = 26 Me.CalendarButton.Text = "Calendar" ' 'FaceButton ' Me.FaceButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FaceButton.Location = New System.Drawing.Point(1230, 377) Me.FaceButton.Name = "FaceButton" Me.FaceButton.Size = New System.Drawing.Size(374, 55) Me.FaceButton.TabIndex = 27 Me.FaceButton.Text = "SmileyFace" ' 'ComicAnnualCheckBox ' Me.ComicAnnualCheckBox.AutoSize = True Me.ComicAnnualCheckBox.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicAnnualCheckBox.Location = New System.Drawing.Point(416, 374) Me.ComicAnnualCheckBox.Name = "ComicAnnualCheckBox" Me.ComicAnnualCheckBox.Size = New System.Drawing.Size(34, 33) Me.ComicAnnualCheckBox.TabIndex = 28 Me.ComicAnnualCheckBox.UseVisualStyleBackColor = True ' 'AnnualLabel ' Me.AnnualLabel.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.AnnualLabel.Location = New System.Drawing.Point(21, 374) Me.AnnualLabel.Name = "AnnualLabel" Me.AnnualLabel.Size = New System.Drawing.Size(270, 58) Me.AnnualLabel.TabIndex = 29 Me.AnnualLabel.Text = "Annual" ' 'ComicBookCrew ' Me.ComicBookCrew.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComicBookCrew.Location = New System.Drawing.Point(2571, 10) Me.ComicBookCrew.Multiline = True Me.ComicBookCrew.Name = "ComicBookCrew" Me.ComicBookCrew.Size = New System.Drawing.Size(437, 419) Me.ComicBookCrew.TabIndex = 30 ' 'SeekButton ' Me.SeekButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SeekButton.Location = New System.Drawing.Point(471, 374) Me.SeekButton.Name = "SeekButton" Me.SeekButton.Size = New System.Drawing.Size(353, 55) Me.SeekButton.TabIndex = 31 Me.SeekButton.Text = "Seek" ' 'MakeCurrentCover ' Me.MakeCurrentCover.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MakeCurrentCover.Location = New System.Drawing.Point(1747, -2) Me.MakeCurrentCover.Name = "MakeCurrentCover" Me.MakeCurrentCover.Size = New System.Drawing.Size(375, 64) Me.MakeCurrentCover.TabIndex = 32 Me.MakeCurrentCover.Text = "CurrentCover" ' 'MakeCurrentAll ' Me.MakeCurrentAll.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MakeCurrentAll.Location = New System.Drawing.Point(1747, 74) Me.MakeCurrentAll.Name = "MakeCurrentAll" Me.MakeCurrentAll.Size = New System.Drawing.Size(375, 64) Me.MakeCurrentAll.TabIndex = 33 Me.MakeCurrentAll.Text = "CurrentAll" ' 'WallPaperEach ' Me.WallPaperEach.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.WallPaperEach.Location = New System.Drawing.Point(1747, 160) Me.WallPaperEach.Name = "WallPaperEach" Me.WallPaperEach.Size = New System.Drawing.Size(375, 124) Me.WallPaperEach.TabIndex = 34 Me.WallPaperEach.Text = "WallPaper Each" ' 'CloseButton ' Me.CloseButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CloseButton.Location = New System.Drawing.Point(2007, 305) Me.CloseButton.Name = "CloseButton" Me.CloseButton.Size = New System.Drawing.Size(115, 88) Me.CloseButton.TabIndex = 35 Me.CloseButton.Text = "X" ' 'MakeMoeButton ' Me.MakeMoeButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MakeMoeButton.Location = New System.Drawing.Point(2142, 448) Me.MakeMoeButton.Name = "MakeMoeButton" Me.MakeMoeButton.Size = New System.Drawing.Size(367, 58) Me.MakeMoeButton.TabIndex = 36 Me.MakeMoeButton.Text = "MakeMoe" ' 'WallPaperAll ' Me.WallPaperAll.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.WallPaperAll.Location = New System.Drawing.Point(1620, 451) Me.WallPaperAll.Name = "WallPaperAll" Me.WallPaperAll.Size = New System.Drawing.Size(374, 55) Me.WallPaperAll.TabIndex = 37 Me.WallPaperAll.Text = "WallPaperAll" ' 'LandscapeButton ' Me.LandscapeButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LandscapeButton.Location = New System.Drawing.Point(1230, 451) Me.LandscapeButton.Name = "LandscapeButton" Me.LandscapeButton.Size = New System.Drawing.Size(374, 55) Me.LandscapeButton.TabIndex = 38 Me.LandscapeButton.Text = "Landscape" ' 'BarGraphButton ' Me.BarGraphButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BarGraphButton.Location = New System.Drawing.Point(840, 451) Me.BarGraphButton.Name = "BarGraphButton" Me.BarGraphButton.Size = New System.Drawing.Size(374, 55) Me.BarGraphButton.TabIndex = 39 Me.BarGraphButton.Text = "BarGraph" ' 'GolfFlagButton ' Me.GolfFlagButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GolfFlagButton.Location = New System.Drawing.Point(471, 451) Me.GolfFlagButton.Name = "GolfFlagButton" Me.GolfFlagButton.Size = New System.Drawing.Size(353, 55) Me.GolfFlagButton.TabIndex = 40 Me.GolfFlagButton.Text = "GolfFlag" ' 'FloorWalkButton ' Me.FloorWalkButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FloorWalkButton.Location = New System.Drawing.Point(29, 451) Me.FloorWalkButton.Name = "FloorWalkButton" Me.FloorWalkButton.Size = New System.Drawing.Size(353, 55) Me.FloorWalkButton.TabIndex = 41 Me.FloorWalkButton.Text = "FloorWalk" ' 'AgricultureButton ' Me.AgricultureButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.AgricultureButton.Location = New System.Drawing.Point(1620, 520) Me.AgricultureButton.Name = "AgricultureButton" Me.AgricultureButton.Size = New System.Drawing.Size(374, 55) Me.AgricultureButton.TabIndex = 42 Me.AgricultureButton.Text = "Farming" ' 'DeedTreeButton ' Me.DeedTreeButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.DeedTreeButton.Location = New System.Drawing.Point(1230, 520) Me.DeedTreeButton.Name = "DeedTreeButton" Me.DeedTreeButton.Size = New System.Drawing.Size(374, 55) Me.DeedTreeButton.TabIndex = 43 Me.DeedTreeButton.Text = "DeedTree" ' 'PlankButton ' Me.PlankButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.PlankButton.Location = New System.Drawing.Point(840, 520) Me.PlankButton.Name = "PlankButton" Me.PlankButton.Size = New System.Drawing.Size(374, 55) Me.PlankButton.TabIndex = 44 Me.PlankButton.Text = "PlankWalk" ' 'BenFrank ' Me.BenFrank.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BenFrank.Location = New System.Drawing.Point(471, 520) Me.BenFrank.Name = "BenFrank" Me.BenFrank.Size = New System.Drawing.Size(353, 55) Me.BenFrank.TabIndex = 45 Me.BenFrank.Text = "BenFrank" ' 'DeathTowerButton ' Me.DeathTowerButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.DeathTowerButton.Location = New System.Drawing.Point(29, 520) Me.DeathTowerButton.Name = "DeathTowerButton" Me.DeathTowerButton.Size = New System.Drawing.Size(353, 55) Me.DeathTowerButton.TabIndex = 46 Me.DeathTowerButton.Text = "DeathTower" ' 'WindowCling ' Me.WindowCling.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.WindowCling.Location = New System.Drawing.Point(2135, 520) Me.WindowCling.Name = "WindowCling" Me.WindowCling.Size = New System.Drawing.Size(374, 55) Me.WindowCling.TabIndex = 47 Me.WindowCling.Text = "WindowCling" ' 'LifeCircle ' Me.LifeCircle.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LifeCircle.Location = New System.Drawing.Point(840, 589) Me.LifeCircle.Name = "LifeCircle" Me.LifeCircle.Size = New System.Drawing.Size(374, 55) Me.LifeCircle.TabIndex = 48 Me.LifeCircle.Text = "CircleofLife" ' 'HandCard ' Me.HandCard.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.HandCard.Location = New System.Drawing.Point(1230, 589) Me.HandCard.Name = "HandCard" Me.HandCard.Size = New System.Drawing.Size(374, 55) Me.HandCard.TabIndex = 49 Me.HandCard.Text = "HandCard" ' 'LineArtButton ' Me.LineArtButton.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LineArtButton.Location = New System.Drawing.Point(471, 589) Me.LineArtButton.Name = "LineArtButton" Me.LineArtButton.Size = New System.Drawing.Size(353, 55) Me.LineArtButton.TabIndex = 50 Me.LineArtButton.Text = "LineArt" ' 'TeleCord ' Me.TeleCord.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TeleCord.Location = New System.Drawing.Point(1620, 589) Me.TeleCord.Name = "TeleCord" Me.TeleCord.Size = New System.Drawing.Size(374, 55) Me.TeleCord.TabIndex = 51 Me.TeleCord.Text = "Telecommunications" ' 'ComicImagingForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(13, 31) Me.ClientSize = New System.Drawing.Size(2672, 1430) Me.Controls.Add(Me.TeleCord) Me.Controls.Add(Me.LineArtButton) Me.Controls.Add(Me.HandCard) Me.Controls.Add(Me.LifeCircle) Me.Controls.Add(Me.WindowCling) Me.Controls.Add(Me.DeathTowerButton) Me.Controls.Add(Me.BenFrank) Me.Controls.Add(Me.PlankButton) Me.Controls.Add(Me.DeedTreeButton) Me.Controls.Add(Me.AgricultureButton) Me.Controls.Add(Me.FloorWalkButton) Me.Controls.Add(Me.GolfFlagButton) Me.Controls.Add(Me.BarGraphButton) Me.Controls.Add(Me.LandscapeButton) Me.Controls.Add(Me.WallPaperAll) Me.Controls.Add(Me.MakeMoeButton) Me.Controls.Add(Me.CloseButton) Me.Controls.Add(Me.WallPaperEach) Me.Controls.Add(Me.MakeCurrentAll) Me.Controls.Add(Me.MakeCurrentCover) Me.Controls.Add(Me.SeekButton) Me.Controls.Add(Me.ComicBookCrew) Me.Controls.Add(Me.AnnualLabel) Me.Controls.Add(Me.ComicAnnualCheckBox) Me.Controls.Add(Me.FaceButton) Me.Controls.Add(Me.CalendarButton) Me.Controls.Add(Me.PhotoButton) Me.Controls.Add(Me.WallPaperButton) Me.Controls.Add(Me.MakeAllButton) Me.Controls.Add(Me.ComicMemoTextBox) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.NewRecord) Me.Controls.Add(Me.LastRecord) Me.Controls.Add(Me.NextRecord) Me.Controls.Add(Me.PreviousRecord) Me.Controls.Add(Me.FirstRecord) Me.Controls.Add(Me.ComicBookValue) Me.Controls.Add(Me.ComicBookPrice) Me.Controls.Add(Me.ComicBookID) Me.Controls.Add(Me.ComicBookNumberofPages) Me.Controls.Add(Me.ComicBookYear) Me.Controls.Add(Me.ComicBookNumber) Me.Controls.Add(Me.MakeWeb) Me.Controls.Add(Me.ComicBookPublisher) Me.Controls.Add(Me.AddPage) Me.Controls.Add(Me.ComicBookName) Me.Controls.Add(Me.AddCover) Me.Name = "ComicImagingForm" Me.Text = "Form1" Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load ' put comicscollection database in c:\ or change some variables to shared network drive MyAccess.Mode = ADODB.ConnectModeEnum.adModeReadWrite MyAccess.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ImagingRootDirectory & ImagingDirectory & "\" & ImagingDatabase & ";", "Admin", "") ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicNames.Open("select * from [Comic Names];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBookPages.Open("select * from ComicBookPages;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] ORDER by [ComicPublisher];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.Text = ComicBooks.RecordCount If ComicBooks.RecordCount > 0 Then ComicBooks.MoveFirst() Me.ComicBookNumber.Text = ComicBooks.Fields("ComicBookNumber").Value Me.ComicBookYear.Text = ComicBooks.Fields("ComicBookyear").Value Me.ComicBookID.Text = ComicBooks.Fields("ComicID").Value Me.ComicBookNumberofPages.Text = ComicBooks.Fields("ComicBookNumberOfPages").Value Me.ComicBookPrice.Text = ComicBooks.Fields("ComicBookPrice").Value Me.ComicBookValue.Text = ComicBooks.Fields("ComicBookValue").Value Me.ComicAnnualCheckBox.Checked = ComicBooks.Fields("ComicBookAnnual").Value Me.ComicMemoTextBox.Text = ComicBooks.Fields("ComicBookReview").Value Me.ComicBookCrew.Text = ComicBooks.Fields("ComicBookCrew").Value If ComicBooks.Fields("ComicBookScanned").Value = True Then Me.MakeWeb.ForeColor = System.Drawing.Color.Red Else Me.MakeWeb.ForeColor = System.Drawing.Color.Black End If ComicNames.MoveFirst() Do Until ComicNames.EOF ComicBookName.Items.Add(ComicNames.Fields("ComicName").Value) ComicNames.MoveNext() Loop ComicNames.Close() ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookName.Text = ComicNames.Fields("ComicName").Value ComicPublisher.MoveFirst() Do Until ComicPublisher.EOF ComicBookPublisher.Items.Add(ComicPublisher.Fields("Comicpublisher").Value) ComicPublisher.MoveNext() Loop ComicPublisher.Close() ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooksTemp.Open("SELECT [Comic Books].ComicBookName, Count([Comic Books].ComicBookName) AS CountOfComicBookName FROM [Comic Books] GROUP BY [Comic Books].ComicBookName HAVING ((([Comic Books].ComicBookName)=" & ComicNames.Fields("ComicNameID").Value & "));", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.Text = ComicBooks.RecordCount & " CountOfDisplayedComic: " & ComicBooksTemp.Fields("CountoFComicBookName").Value Me.ComicBookPublisher.Text = ComicPublisher.Fields("ComicPublisher").Value ComicBooksTemp.Close() ComicBooksTemp.Open("select * from [Comic Books] WHERE (ComicBookName=" & ComicNames.Fields("ComicNameID").Value & ") ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Dim CBPages As Int64 = 0 ComicBooksTemp.MoveFirst() Do Until ComicBooksTemp.EOF CBPages = CBPages + ComicBooksTemp.Fields("ComicBookNumberOfPages").Value ComicBooksTemp.MoveNext() Loop ComicBooksTemp.Close() Me.Text = Me.Text & " CountOfCurrentComicPages: " & CBPages ComicBooks.Close() If Me.ComicAnnualCheckBox.Checked = False Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg", FileAttribute.Normal) <> "" Then Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg") Else Me.BackgroundImage = Nothing End If Else If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "cover.jpg", FileAttribute.Normal) <> "" Then Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "cover.jpg") Else Me.BackgroundImage = Nothing End If End If Me.Width = Screen.PrimaryScreen.Bounds.Width Me.Height = Screen.PrimaryScreen.Bounds.Height PictureBoxWidth = Screen.PrimaryScreen.Bounds.Width / 20 - 1 PictureBoxHeight = (Screen.PrimaryScreen.Bounds.Height - 200) / 12 - 1 Me.Left = 1 Me.Top = 1 Dim pagenumber As Long For pagenumber = 1 To Me.ComicBookNumberofPages.Text If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(pagenumber) Me.SuspendLayout() Me.ComicPictureBox(pagenumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(pagenumber).Location = New System.Drawing.Point(CInt((pagenumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((pagenumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(pagenumber).Name = "PictureBox" & pagenumber Me.ComicPictureBox(pagenumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) If Me.ComicAnnualCheckBox.Checked = False Then Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") Else Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") End If Me.ComicPictureBox(pagenumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(pagenumber)) Me.ResumeLayout() End If Next pagenumber End If ComicNames.Close() ComicPublisher.Close() ComicBookPages.Close() formloading = False End Sub Private Sub AddCover_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddCover.Click If Me.ComicAnnualCheckBox.Checked = False Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & CStr(Me.ComicBookNumber.Text) & "cover.jpg", FileAttribute.Normal) = "" Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text), FileAttribute.Directory) = "" Then MkDir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text)) End If If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase((CStr(Me.ComicBookPublisher.Text))), FileAttribute.Directory) = "" Then MkDir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text))) End If If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)), FileAttribute.Directory) = "" Then MkDir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text))) End If getimage(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg") End If Else If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & CStr(Me.ComicBookNumber.Text) & "cover.jpg", FileAttribute.Normal) = "" Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text), FileAttribute.Directory) = "" Then MkDir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text)) End If If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase((CStr(Me.ComicBookPublisher.Text))), FileAttribute.Directory) = "" Then MkDir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text))) End If If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)), FileAttribute.Directory) = "" Then MkDir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text))) End If getimage(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "cover.jpg") End If End If If Me.ComicAnnualCheckBox.Checked = False Then Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg") Else Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "cover.jpg") End If End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing ComicBooks = Nothing ComicNames = Nothing ComicBookPages = Nothing ComicPublisher = Nothing MyAccess.Close() MyAccess = Nothing End Sub Private Sub AddPage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddPage.Click Dim PageNumber As Long PageNumber = Me.ComicBookNumberofPages.Text + 1 ' getimage(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & PageNumber & ".jpg") If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text), FileAttribute.Directory) = "" Then MkDir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text)) End If If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase((CStr(Me.ComicBookPublisher.Text))), FileAttribute.Directory) = "" Then MkDir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text))) End If If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)), FileAttribute.Directory) = "" Then MkDir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text))) End If If Me.ComicAnnualCheckBox.Checked = False Then ' processimage(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & PageNumber & ".jpg") getimage(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & PageNumber & ".jpg") If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & PageNumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(PageNumber) Me.SuspendLayout() Me.ComicPictureBox(PageNumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(PageNumber).Location = New System.Drawing.Point(CInt((PageNumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((PageNumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(PageNumber).Name = "PictureBox" & PageNumber Me.ComicPictureBox(PageNumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(PageNumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & PageNumber & ".jpg") Me.ComicPictureBox(PageNumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(PageNumber)) Me.ResumeLayout() Me.ComicBookNumberofPages.Text = PageNumber ' Me.ComicPictureBox(PageNumber).Image = Image.FromFile("") ComicBooks.Open("select * from [Comic Books] where [ComicID]=" & Me.ComicBookID.Text & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Fields("ComicBookNumberOfPages").Value = PageNumber ComicBooks.Update() ComicBooks.Close() End If Else getimage(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & PageNumber & ".jpg") If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & PageNumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(PageNumber) Me.SuspendLayout() Me.ComicPictureBox(PageNumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(PageNumber).Location = New System.Drawing.Point(CInt((PageNumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((PageNumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(PageNumber).Name = "PictureBox" & PageNumber Me.ComicPictureBox(PageNumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(PageNumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & PageNumber & ".jpg") Me.ComicPictureBox(PageNumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(PageNumber)) Me.ResumeLayout() Me.ComicBookNumberofPages.Text = PageNumber ComicBooks.Open("select * from [Comic Books] where [ComicID]=" & Me.ComicBookID.Text & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Fields("ComicBookNumberOfPages").Value = PageNumber ComicBooks.Update() ComicBooks.Close() End If End If End Sub Private Sub MakeWeb_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MakeWeb.Click If InputBox("Are you sure you are done with this comic book?", "Check", "False") = "True" Then Dim WebKeywordsString As String = "" ComicBooks.Open("select * from [Comic Books] where (ComicID=" & Me.ComicBookID.Text & ") ORDER BY ComicID;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Fields("ComicBookScanned").Value = True ComicBooks.Update() ComicBooks.Close() WebIO = IO.File.CreateText(ImagingRootDirectory & ImagingDirectory & "\peruse" & ImagingDirectory & ".html") ' WebIO.Write("<-- copyright (c) 1996 Haloink.com -->" & vbCrLf) ' WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("Comic Book Index" & vbCrLf) WebIO.Write(" "unknown" Then If InStr(WebKeywordsString, ComicBooks.Fields("ComicBookCrew").Value, CompareMethod.Text) = 0 Then WebKeywordsString = ", " & ComicBooks.Fields("ComicBookCrew").Value End If ' WebIO.Write(" " & ComicBooks.Fields("ComicBookCrew").Value) End If ComicBooks.MoveNext() Loop ComicBooks.Close() WebIO.Write(WebKeywordsString) WebIO.Write(Chr(34) & ">" & vbCrLf) ComicPublisher.Close() WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) REM ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY ComicID;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) REM ComicBooks.MoveFirst() REM ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) REM ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) REM WebIO.Write("

have a lucent labor day! send correspondences to haloink.com, 453 nelson avenue, cliffside park, new jersey 07010, united states

" & vbCrLf) WebIO.Write("

tales from my hood

" & vbCrLf) WebIO.Write("

alpha version

" & vbCrLf) WebIO.Write("

" & CBC & " comic books available for your perusal

" & vbCrLf) WebIO.Write("

$" & ZeroedRetailPrice & " PRICELESS worth of comic books available for your perusal

" & vbCrLf) WebIO.Write("

" & TotalComicPages & " hand crafted comic book pages available for your perusal

" & vbCrLf) WebIO.Write("

$46.80 introduction subscription price, please include 7% NJ Sales Tax

" & vbCrLf) WebIO.Write("

comic book of the second

" & vbCrLf) REM WebIO.Write("

Duke Andrew Presents

" & vbCrLf) REM WebIO.Write("

" & vbCrLf) REM ComicPublisher.Open("select * from [ComicPublisher];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) REM ComicPublisher.MoveFirst() REM WebIO.Write("

") REM WebIO.Write(ComicPublisher.Fields("ComicPublisher").Value) REM ComicPublisher.MoveNext() REM Do Until ComicPublisher.EOF REM WebIO.Write(", " & ComicPublisher.Fields("ComicPublisher").Value) REM ComicPublisher.MoveNext() REM Loop REM WebIO.Write("

" & vbCrLf) REM ComicPublisher.Close() WebIO.Write("

" & vbCrLf) REM ComicNames.Close() REM ComicPublisher.Close() WebIO.Write("

enter password" & vbCrLf) WebIO.Write("

") WebIO.Write("select syllabus to study" & vbCrLf) WebIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) ComicBooks.MoveFirst() WebTitleIO.Write("
" & vbCrLf) WebTitleIO.Write("

enter password" & vbCrLf) WebTitleIO.Write("

") WebTitleIO.Write("select comic to read" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("
" & vbCrLf) WebTitleIO.Write("" & vbCrLf) Do Until ComicBooks.EOF WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) If ComicNum = 0 Then WebTitleIO.Write("" & vbCrLf) End If WebTitleIO.Write("" & vbCrLf) ComicBooks.MoveNext() ComicNum = ComicNum + 1 Loop WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("
" & vbCrLf) WebTitleIO.Write("" & vbCrLf) If ComicBooks.Fields("ComicBookAnnual").Value = False Then WebTitleIO.Write("

" & vbCrLf) Else WebTitleIO.Write("

" & vbCrLf) End If WebTitleIO.Write("
" & vbCrLf) makeguestbook(ComicPublisher.Fields("ComicPublisher").Value & ComicNames.Fields("ComicName").Value) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("
" & vbCrLf) WebTitleIO.Write("

comics scrolls banner $30.00

" & vbCrLf) WebTitleIO.Write("

remember to tithe your ten percent at least to a church charity

" & vbCrLf) WebTitleIO.Write("

we are a charitable organization, please donate some of your currencies to this cause

" & vbCrLf) WebTitleIO.Write("

copyright circa 1995 to 2013 Haloink.com applicables laws of 20th and 21st century United States Of America

" & vbCrLf) WebTitleIO.Write("

send all inquiries to haloink, 658-660 Palisades Avenue, Apt #100, Cliffside Park, NJ 07010

" & vbCrLf) WebTitleIO.Write("

a must see. currently this museum is for research only. this is dedicated to the talented crew at the various publishers as well as the technological marvels of the printing processes and the computers. thanks to family, friends and rivals. someday this may have a suggested donation fan club for the upkeep of this precious comic book museum. your patronage is most welcome!

" & vbCrLf) WebTitleIO.Write("

WONDER CON 2009

" & vbCrLf) ' WebIO.Write("

suggested admissions price five cents

" & vbCrLf) WebTitleIO.Write("

questions.comments.suggestions

" & vbCrLf) WebTitleIO.Write("

questions.comments.suggestions

" & vbCrLf) WebTitleIO.Write("

questions.comments.suggestions

" & vbCrLf) WebTitleIO.Write("
" & vbCrLf) WebTitleIO.Write("" & vbCrLf) REM WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Close() ComicNames.MoveNext() ComicBooks.Close() ComicPublisher.Close() Loop ComicNames.Close() WebIO.Write("" & vbCrLf) WebIO.Write("

comics scrolls banner $30.00

" & vbCrLf) WebIO.Write("

remember to tithe your ten percent at least to a church charity

" & vbCrLf) WebIO.Write("

we are a charitable organization, please donate some of your currencies to this cause

" & vbCrLf) WebIO.Write("

send all inquiries to haloink, 658-660 Palisades Avenue, Apt #100, Cliffside Park, NJ 07010

" & vbCrLf) REM WebIO.Write("

subscribe to our newsletter and enter our seasonal drawing for a $100 Macys Gift Card

" & vbCrLf) WebIO.Write("

send self addressed stamped envelope for a limited edition postcard

" & vbCrLf) WebIO.Write("

Author: Queen Seamstress, Colorist: Sky Giant SimAnt, Letterer: Noble Laureate TreeHugger, Editor:Master of Darkness KiteFlyer, Editor-In-Chief: Glyph Bridgebuilder

" & vbCrLf) WebIO.Write("

copyright circa 1995 to 2013 Haloink.com applicables laws of 20th and 21st century United States Of America

" & vbCrLf) WebIO.Write("

thanks to bladerunner michael, riverkeeper jordan, viewmaster timothy, purple dinosaur barney, printmaster christopher, lamenter shinae

" & vbCrLf) ' WebIO.Write("

" & vbCrLf) WebIO.Write("

a must see. currently this museum is for research only. this is dedicated to the talented crew at the various publishers as well as the technological marvels of the printing processes and the computers. thanks to family, friends and rivals. someday this may have a suggested donation fan club for the upkeep of this precious comic book museum. your patronage is most welcome!

" & vbCrLf) REM WebIO.Write("

send all inquiries to haloink.com, 453 Nelson Avenue, Cliffside Park, NJ 07010

" & vbCrLf) WebIO.Write("

we are currently accepting gifts of comic books to be added to this web museum, please click on this line to type or write us an email for more information

" & vbCrLf) WebIO.Write("

we do web site designs, contact us for a low quote

" & vbCrLf) REM WebIO.Write("

click on this line to type or write an email to us with questions.comments.suggestions

" & vbCrLf) REM WebIO.Write("

wedding registry

" & vbCrLf) REM WebIO.Write("

the eisner awards, nominate your choicest and tell them you heard about from www.haloink.com

" & vbCrLf) REM WebIO.Write("

the updates online will be suspended until further notice, if things go well, expect to see up to 10000+ comic books available for perusal and research, thank you

" & vbCrLf) WebIO.Write("

CREDITS

" & vbCrLf) WebIO.Write("

" & vbCrLf) WebIO.Write(" & Chr(34) &

" & vbCrLf) WebIO.Write("

Follow @mostadorthsande" & vbCrLf) WebIO.Write("

" & vbCrLf) CREDITSIO = IO.File.CreateText(ImagingRootDirectory & ImagingDirectory & "\comicbookprojectcredits.html") CREDITSIO.Write("" & vbCrLf) CREDITSIO.Write("" & vbCrLf) CREDITSIO.Write("

Dell Data Processors

" & vbCrLf) CREDITSIO.Write("

Epson Scanners

" & vbCrLf) CREDITSIO.Write("

Microsoft Windows XP

" & vbCrLf) CREDITSIO.Write("

Microsoft Visual Studio .Net 2003

" & vbCrLf) CREDITSIO.Write("

Microsoft Visual Studio 2005

" & vbCrLf) CREDITSIO.Write("

HaloInk.Com Unity

" & vbCrLf) CREDITSIO.Write("" & vbCrLf) CREDITSIO.Write("" & vbCrLf) CREDITSIO.Close() WebIO.Write("
" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) REM WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Close() If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)), FileAttribute.Directory) <> "" Then Dim DirectoryString As String If Me.ComicAnnualCheckBox.Checked = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text End If Dim WebString As String If Me.ComicAnnualCheckBox.Checked = False Then WebString = "http://www.haloink.com/" & ImagingDirectory & "/" & CStr(Me.ComicBookYear.Text) & "/" & UCase(CStr(Me.ComicBookPublisher.Text)) & "/" & UCase(CStr(Me.ComicBookName.Text)) & "/" & Me.ComicBookNumber.Text Else WebString = "http://www.haloink.com/" & ImagingDirectory & "/" & CStr(Me.ComicBookYear.Text) & "/" & UCase(CStr(Me.ComicBookPublisher.Text)) & "/" & UCase(CStr(Me.ComicBookName.Text)) & "/annual" & Me.ComicBookNumber.Text End If Dim X As Int64 WebIO = IO.File.CreateText(DirectoryString & "cover.html") WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) ComicBooks.Open("select * from [Comic Books] WHERE (ComicID=" & CInt(Me.ComicBookID.Text) & ");", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() If ComicBooks.Fields("ComicBookCrew").Value <> "unknown" Then WebIO.Write("" & ComicBooks.Fields("ComicBookCrew").Value & "" & vbCrLf) End If ComicBooks.Close() WebIO.Write(" ") REM WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Close() WebTitleIO = IO.File.CreateText(DirectoryString & "coverpreview.html") WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write(" " & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) REM WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Close() For X = 1 To Me.ComicBookNumberofPages.Text - 1 WebIO = IO.File.CreateText(DirectoryString & "page" & X & ".html") WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write(" ") REM WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Close() WebTitleIO = IO.File.CreateText(DirectoryString & "page" & X & "preview.html") WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write(" " & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) REM WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Close() Next X WebIO = IO.File.CreateText(DirectoryString & "page" & Me.ComicBookNumberofPages.Text & ".html") WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write(" ") REM WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) ' WebIO.Write(" ") WebIO.Close() WebTitleIO = IO.File.CreateText(DirectoryString & "page" & Me.ComicBookNumberofPages.Text & "preview.html") WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write(" " & vbCrLf) WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) REM WebTitleIO.Write("" & vbCrLf) WebTitleIO.Write("" & vbCrLf) ' WebIO.Write(" ") WebTitleIO.Close() WebIO = IO.File.CreateText(ImagingRootDirectory & ImagingDirectory & "\welcome.html") WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("Comic Book Welcome" & vbCrLf) WebIO.Write(" "unknown" Then If InStr(WebKeywordsString, ComicBooks.Fields("ComicBookCrew").Value, CompareMethod.Text) = 0 Then WebKeywordsString = ", " & ComicBooks.Fields("ComicBookCrew").Value End If ' WebIO.Write(" " & ComicBooks.Fields("ComicBookCrew").Value) End If ComicBooks.MoveNext() Loop ComicBooks.Close() WebIO.Write(WebKeywordsString) WebIO.Write(Chr(34) & ">" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write(" & Chr(34) & " & vbCrLf) WebIO.Write("

welcome page 0

" & vbCrLf) REM WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) End If WebIO.Write("" & vbCrLf) WebIO.Close() WebIO = IO.File.CreateText(ImagingRootDirectory & ImagingDirectory & "\welcome" & WelcomePageNumber & ".html") WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("Comic Book Welcome" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WelcomePageNumber = WelcomePageNumber + 1 End If ComicBookNumber = ComicBookNumber + 1 ComicBooks.MoveNext() ComicNames.Close() ComicPublisher.Close() Loop ComicBooks.Close() WebIO.Write("

" & vbCrLf) WebIO.Write("" & vbCrLf) REM WebIO.Write("" & vbCrLf) REM WebIO.Write(" & Chr(34) & " & vbCrLf) REM WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Close() GoTo skipmailfornow WebIO = IO.File.CreateText(ImagingRootDirectory & ImagingDirectory & "\welcomemail.html") WebIO.Write("<% @import Namespace=" & Chr(34) & "System.Web.Mail" & Chr(34) & " %>" & vbCrLf) REM WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("testing" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Close() skipmailfornow: WebIO = IO.File.CreateText(ImagingRootDirectory & ImagingDirectory & "\welcomescripted.asp") ' WebIO.Write("" & vbCrLf) WebIO.Write("<%@ Language= " & Chr(34) & "VBScript" & Chr(34) & " %>" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write(" "unknown" Then WebIO.Write(" " & ComicBooks.Fields("ComicBookCrew").Value) End If ComicBooks.MoveNext() Loop ComicBooks.Close() WebIO.Write(Chr(34) & ">" & vbCrLf) WebIO.Write("<%" & vbCrLf) WebIO.Write("strProvider = " & Chr(34) & "Provider=sqloledb; Data Source=p3swhsql-v10.shr.phx3.secureserver.net; Initial Catalog=mosta; User ID=mosta; Password='Hope4659';" & Chr(34) & vbCrLf) REM WebIO.Write("strQuery = " & Chr(34) & "SELECT requestscount FROM requests;" & Chr(34) & vbCrLf) WebIO.Write("Set objConnList = server.createobject(" & Chr(34) & "ADODB.Connection" & Chr(34) & ")" & vbCrLf) WebIO.Write("objConnList.Open strProvider" & vbCrLf) WebIO.Write("strQuery = " & Chr(34) & "SELECT MAX(requestscount) FROM requests;" & Chr(34) & vbCrLf) WebIO.Write("Set objRSList = objConnList.Execute(strQuery)" & vbCrLf) WebIO.Write("strCommand = " & Chr(34) & "INSERT INTO requests (requestscount,requestsdate) VALUES ('" & Chr(34) & " & (objRSList(0) + 1) & " & Chr(34) & "','" & Chr(34) & " & Now() & " & Chr(34) & "');" & Chr(34) & vbCrLf) WebIO.Write("objConnList.Execute(strCommand)" & vbCrLf) WebIO.Write("objConnList.Close()" & vbCrLf) WebIO.Write("%>" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("Comic Book Welcome" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("

" & vbCrLf) WebIO.Write(" & Chr(34) &

" & vbCrLf) WebIO.Write("

comics scrolls banner $30.00

" & vbCrLf) WebIO.Write("

Follow @mostadorthsande" & vbCrLf) WebIO.Write("

" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) REM WebIO.Write("" & vbCrLf) REM WebIO.Write("" & vbCrLf) REM WebIO.Write("" & vbCrLf) REM WebIO.Write("" & vbCrLf) REM WebIO.Write("" & vbCrLf) REM WebIO.Write(" & Chr(34) & " & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Close() WebTitleIO = Nothing WebIO = Nothing MsgBox("Magnifique!") End If End If End Sub Public Sub fixjpeg() ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY ComicID;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() Dim X As Int32 = 1 Dim Y As Int32 = 1 Dim oldjpeg(1000000) As System.Drawing.Image Dim newjpeg(1000000) As System.Drawing.Image Dim filename As String Dim comicstring As String = "" Do Until ComicBooks.EOF ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) comicstring = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookYear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & ComicBooks.Fields("ComicBookNumber").Value filename = comicstring & "cover.jpg" oldjpeg(Y) = System.Drawing.Image.FromFile(filename) newjpeg(Y) = oldjpeg(Y) newjpeg(Y).Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg) Y = Y + 1 For X = 1 To ComicBooks.Fields("ComicBookNumberOfPages").Value filename = comicstring & "page" & X & ".jpg" oldjpeg(Y) = System.Drawing.Image.FromFile(filename) newjpeg(Y) = oldjpeg(Y) newjpeg(Y).Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg) Y = Y + 1 Next X ComicBooks.MoveNext() ComicNames.Close() ComicPublisher.Close() Loop ComicBooks.Close() MsgBox("done") End Sub Private Sub FirstRecord_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FirstRecord.Click Me.Text = 1 Do While ComicBooks.State = 1 Or ComicPublisher.State = 1 Or ComicNames.State = 1 Me.Text = Me.Text + 1 Loop Dim Y As Int32 Me.SuspendLayout() For Y = 1 To Me.ComicBookNumberofPages.Text Me.Controls.Remove(Me.ComicPictureBox(Y)) Me.ComicPictureBox(Y).Dispose() Me.ComicPictureBox(Y) = Nothing Next Y ReDim ComicPictureBox(0) Me.ResumeLayout() ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() If ComicBooks.RecordCount = 0 Then ComicBooks.Close() GoTo endfirst End If formloading = True ComicNames.Open("select * from [Comic Names] ORDER by [ComicName];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBookPages.Open("select * from ComicBookPages;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] ORDER by [ComicPublisher];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookNumber.Text = ComicBooks.Fields("ComicBookNumber").Value Me.ComicBookYear.Text = ComicBooks.Fields("ComicBookyear").Value Me.ComicBookID.Text = ComicBooks.Fields("ComicID").Value Me.ComicBookNumberofPages.Text = ComicBooks.Fields("ComicBookNumberOfPages").Value Me.ComicBookPrice.Text = ComicBooks.Fields("ComicBookPrice").Value Me.ComicBookValue.Text = ComicBooks.Fields("ComicBookValue").Value Me.ComicAnnualCheckBox.Checked = ComicBooks.Fields("ComicBookAnnual").Value Me.ComicMemoTextBox.Text = ComicBooks.Fields("ComicBookReview").Value Me.ComicBookCrew.Text = ComicBooks.Fields("ComicBookCrew").Value If ComicBooks.Fields("ComicBookScanned").Value = True Then Me.MakeWeb.ForeColor = System.Drawing.Color.Red Else Me.MakeWeb.ForeColor = System.Drawing.Color.Black End If ComicNames.MoveFirst() ComicBookName.Items.Clear() Do Until ComicNames.EOF ComicBookName.Items.Add(ComicNames.Fields("ComicName").Value) ComicNames.MoveNext() Loop ComicNames.Close() ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookName.Text = ComicNames.Fields("ComicName").Value ComicPublisher.MoveFirst() ComicBookPublisher.Items.Clear() Do Until ComicPublisher.EOF ComicBookPublisher.Items.Add(ComicPublisher.Fields("Comicpublisher").Value) ComicPublisher.MoveNext() Loop ComicPublisher.Close() ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookPublisher.Text = ComicPublisher.Fields("ComicPublisher").Value ComicBooksTemp.Open("SELECT [Comic Books].ComicBookName, Count([Comic Books].ComicBookName) AS CountOfComicBookName FROM [Comic Books] GROUP BY [Comic Books].ComicBookName HAVING ((([Comic Books].ComicBookName)=" & ComicNames.Fields("ComicNameID").Value & "));", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.Text = ComicBooks.RecordCount & " CountOfDisplayedComic: " & ComicBooksTemp.Fields("CountoFComicBookName").Value ComicBooksTemp.Close() ComicBooksTemp.Open("select * from [Comic Books] WHERE (ComicBookName=" & ComicNames.Fields("ComicNameID").Value & ") ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Dim CBPages As Int64 = 0 ComicBooksTemp.MoveFirst() Do Until ComicBooksTemp.EOF CBPages = CBPages + ComicBooksTemp.Fields("ComicBookNumberOfPages").Value ComicBooksTemp.MoveNext() Loop ComicBooksTemp.Close() Me.Text = Me.Text & " CountOfCurrentComicPages: " & CBPages ComicBooks.Close() If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg", FileAttribute.Normal) <> "" Then Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg") Else Me.BackgroundImage = Nothing End If Dim pagenumber As Long For pagenumber = 1 To Me.ComicBookNumberofPages.Text If Me.ComicAnnualCheckBox.Checked = False Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(pagenumber) Me.SuspendLayout() Me.ComicPictureBox(pagenumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(pagenumber).Location = New System.Drawing.Point(CInt((pagenumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((pagenumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(pagenumber).Name = "PictureBox" & pagenumber Me.ComicPictureBox(pagenumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") Me.ComicPictureBox(pagenumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(pagenumber)) Me.ResumeLayout() End If Else If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(pagenumber) Me.SuspendLayout() Me.ComicPictureBox(pagenumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(pagenumber).Location = New System.Drawing.Point(CInt((pagenumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((pagenumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(pagenumber).Name = "PictureBox" & pagenumber Me.ComicPictureBox(pagenumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") Me.ComicPictureBox(pagenumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(pagenumber)) Me.ResumeLayout() End If End If Next pagenumber ComicNames.Close() ComicPublisher.Close() ComicBookPages.Close() ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Close() formloading = False endfirst: End Sub Private Sub LastRecord_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LastRecord.Click Me.Text = 1 REM GoTo skipstatecheck Do While ComicBooks.State = 1 Or ComicPublisher.State = 1 Or ComicNames.State = 1 Me.Text = Me.Text + 1 Loop skipstatecheck: Dim Y As Int32 Me.SuspendLayout() For Y = 1 To Me.ComicBookNumberofPages.Text Me.Controls.Remove(Me.ComicPictureBox(Y)) Me.ComicPictureBox(Y).Dispose() Me.ComicPictureBox(Y) = Nothing Next Y ReDim ComicPictureBox(0) Me.ResumeLayout() ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveLast() If ComicBooks.RecordCount = 0 Then ComicBooks.Close() GoTo endlast End If formloading = True ComicNames.Open("select * from [Comic Names] ORDER by [ComicName];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBookPages.Open("select * from ComicBookPages;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] ORDER by [ComicPublisher];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookNumber.Text = ComicBooks.Fields("ComicBookNumber").Value Me.ComicBookYear.Text = ComicBooks.Fields("ComicBookyear").Value Me.ComicBookID.Text = ComicBooks.Fields("ComicID").Value Me.ComicBookNumberofPages.Text = ComicBooks.Fields("ComicBookNumberOfPages").Value Me.ComicBookPrice.Text = ComicBooks.Fields("ComicBookPrice").Value Me.ComicBookValue.Text = ComicBooks.Fields("ComicBookValue").Value Me.ComicAnnualCheckBox.Checked = ComicBooks.Fields("ComicBookAnnual").Value Me.ComicMemoTextBox.Text = ComicBooks.Fields("ComicBookReview").Value Me.ComicBookCrew.Text = ComicBooks.Fields("ComicBookCrew").Value If ComicBooks.Fields("ComicBookScanned").Value = True Then Me.MakeWeb.ForeColor = System.Drawing.Color.Red Else Me.MakeWeb.ForeColor = System.Drawing.Color.Black End If ComicNames.MoveFirst() ComicBookName.Items.Clear() Do Until ComicNames.EOF ComicBookName.Items.Add(ComicNames.Fields("ComicName").Value) ComicNames.MoveNext() Loop ComicNames.Close() ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookName.Text = ComicNames.Fields("ComicName").Value ComicPublisher.MoveFirst() ComicBookPublisher.Items.Clear() Do Until ComicPublisher.EOF ComicBookPublisher.Items.Add(ComicPublisher.Fields("Comicpublisher").Value) ComicPublisher.MoveNext() Loop ComicPublisher.Close() ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookPublisher.Text = ComicPublisher.Fields("ComicPublisher").Value ComicBooksTemp.Open("SELECT [Comic Books].ComicBookName, Count([Comic Books].ComicBookName) AS CountOfComicBookName FROM [Comic Books] GROUP BY [Comic Books].ComicBookName HAVING ((([Comic Books].ComicBookName)=" & ComicNames.Fields("ComicNameID").Value & "));", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.Text = ComicBooks.RecordCount & " CountOfDisplayedComic: " & ComicBooksTemp.Fields("CountoFComicBookName").Value ComicBooksTemp.Close() ComicBooksTemp.Open("select * from [Comic Books] WHERE (ComicBookName=" & ComicNames.Fields("ComicNameID").Value & ") ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Dim CBPages As Int64 = 0 ComicBooksTemp.MoveFirst() Do Until ComicBooksTemp.EOF CBPages = CBPages + ComicBooksTemp.Fields("ComicBookNumberOfPages").Value ComicBooksTemp.MoveNext() Loop ComicBooksTemp.Close() Me.Text = Me.Text & " CountOfCurrentComicPages: " & CBPages ComicBooks.Close() If Me.ComicAnnualCheckBox.Checked = False Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg", FileAttribute.Normal) <> "" Then Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg") Else Me.BackgroundImage = Nothing End If Else If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "cover.jpg", FileAttribute.Normal) <> "" Then Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "cover.jpg") Else Me.BackgroundImage = Nothing End If End If Dim pagenumber As Long For pagenumber = 1 To Me.ComicBookNumberofPages.Text If Me.ComicAnnualCheckBox.Checked = False Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(pagenumber) Me.SuspendLayout() Me.ComicPictureBox(pagenumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(pagenumber).Location = New System.Drawing.Point(CInt((pagenumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((pagenumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(pagenumber).Name = "PictureBox" & pagenumber Me.ComicPictureBox(pagenumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") Me.ComicPictureBox(pagenumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(pagenumber)) Me.ResumeLayout() End If Else If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(pagenumber) Me.SuspendLayout() Me.ComicPictureBox(pagenumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(pagenumber).Location = New System.Drawing.Point(CInt((pagenumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((pagenumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(pagenumber).Name = "PictureBox" & pagenumber Me.ComicPictureBox(pagenumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") Me.ComicPictureBox(pagenumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(pagenumber)) Me.ResumeLayout() End If End If Next pagenumber ComicNames.Close() ComicPublisher.Close() ComicBookPages.Close() ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Close() formloading = False endlast: End Sub Private Sub PreviousRecord_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PreviousRecord.Click Me.Text = 1 Do While ComicBooks.State = 1 Or ComicPublisher.State = 1 Or ComicNames.State = 1 Me.Text = Me.Text + 1 Loop Dim Y As Int32 Me.SuspendLayout() For Y = 1 To Me.ComicBookNumberofPages.Text Me.Controls.Remove(Me.ComicPictureBox(Y)) Me.ComicPictureBox(Y).Dispose() Me.ComicPictureBox(Y) = Nothing Next Y ComicBooks.Open("select * from [Comic Books] WHERE (ComicID<" & CInt(Me.ComicBookID.Text) & ") ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveLast() If ComicBooks.RecordCount = 0 Then ComicBooks.Close() GoTo endprevious End If ReDim ComicPictureBox(0) Me.ResumeLayout() formloading = True ComicNames.Open("select * from [Comic Names] ORDER by [ComicName];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBookPages.Open("select * from ComicBookPages;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] ORDER by [ComicPublisher];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookNumber.Text = ComicBooks.Fields("ComicBookNumber").Value Me.ComicBookYear.Text = ComicBooks.Fields("ComicBookyear").Value Me.ComicBookID.Text = ComicBooks.Fields("ComicID").Value Me.ComicBookNumberofPages.Text = ComicBooks.Fields("ComicBookNumberOfPages").Value Me.ComicBookPrice.Text = ComicBooks.Fields("ComicBookPrice").Value Me.ComicBookValue.Text = ComicBooks.Fields("ComicBookValue").Value Me.ComicAnnualCheckBox.Checked = ComicBooks.Fields("ComicBookAnnual").Value Me.ComicMemoTextBox.Text = ComicBooks.Fields("ComicBookReview").Value Me.ComicBookCrew.Text = ComicBooks.Fields("ComicBookCrew").Value If ComicBooks.Fields("ComicBookScanned").Value = True Then Me.MakeWeb.ForeColor = System.Drawing.Color.Red Else Me.MakeWeb.ForeColor = System.Drawing.Color.Black End If ComicNames.MoveFirst() ComicBookName.Items.Clear() Do Until ComicNames.EOF ComicBookName.Items.Add(ComicNames.Fields("ComicName").Value) ComicNames.MoveNext() Loop ComicNames.Close() ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookName.Text = ComicNames.Fields("ComicName").Value ComicPublisher.MoveFirst() ComicBookPublisher.Items.Clear() Do Until ComicPublisher.EOF ComicBookPublisher.Items.Add(ComicPublisher.Fields("Comicpublisher").Value) ComicPublisher.MoveNext() Loop ComicPublisher.Close() ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookPublisher.Text = ComicPublisher.Fields("ComicPublisher").Value ComicBooksTemp.Open("SELECT [Comic Books].ComicBookName, Count([Comic Books].ComicBookName) AS CountOfComicBookName FROM [Comic Books] GROUP BY [Comic Books].ComicBookName HAVING ((([Comic Books].ComicBookName)=" & ComicNames.Fields("ComicNameID").Value & "));", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.Text = ComicBooks.RecordCount & " CountOfDisplayedComic: " & ComicBooksTemp.Fields("CountoFComicBookName").Value ComicBooksTemp.Close() ComicBooksTemp.Open("select * from [Comic Books] WHERE (ComicBookName=" & ComicNames.Fields("ComicNameID").Value & ") ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Dim CBPages As Int64 = 0 ComicBooksTemp.MoveFirst() Do Until ComicBooksTemp.EOF CBPages = CBPages + ComicBooksTemp.Fields("ComicBookNumberOfPages").Value ComicBooksTemp.MoveNext() Loop ComicBooksTemp.Close() Me.Text = Me.Text & " CountOfCurrentComicPages: " & CBPages ComicBooks.Close() If Me.ComicAnnualCheckBox.Checked = False Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg", FileAttribute.Normal) <> "" Then Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg") Else Me.BackgroundImage = Nothing End If Else If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "cover.jpg", FileAttribute.Normal) <> "" Then Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "cover.jpg") Else Me.BackgroundImage = Nothing End If End If Dim pagenumber As Long For pagenumber = 1 To Me.ComicBookNumberofPages.Text If Me.ComicAnnualCheckBox.Checked = False Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(pagenumber) Me.SuspendLayout() Me.ComicPictureBox(pagenumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(pagenumber).Location = New System.Drawing.Point(CInt((pagenumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((pagenumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(pagenumber).Name = "PictureBox" & pagenumber Me.ComicPictureBox(pagenumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") Me.ComicPictureBox(pagenumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(pagenumber)) Me.ResumeLayout() End If Else If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(pagenumber) Me.SuspendLayout() Me.ComicPictureBox(pagenumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(pagenumber).Location = New System.Drawing.Point(CInt((pagenumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((pagenumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(pagenumber).Name = "PictureBox" & pagenumber Me.ComicPictureBox(pagenumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") Me.ComicPictureBox(pagenumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(pagenumber)) Me.ResumeLayout() End If End If Next pagenumber ComicNames.Close() ComicPublisher.Close() ComicBookPages.Close() ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Close() formloading = False endprevious: End Sub Private Sub NextRecord_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NextRecord.Click Me.Text = 1 Do While ComicBooks.State = 1 Or ComicPublisher.State = 1 Or ComicNames.State = 1 Me.Text = Me.Text + 1 Loop Dim Y As Int32 Me.SuspendLayout() For Y = 1 To Me.ComicBookNumberofPages.Text Me.Controls.Remove(Me.ComicPictureBox(Y)) Me.ComicPictureBox(Y).Dispose() Me.ComicPictureBox(Y) = Nothing Next Y ReDim ComicPictureBox(0) Me.ResumeLayout() formloading = True ComicBooks.Open("select * from [Comic Books] WHERE (ComicID>" & CInt(Me.ComicBookID.Text) & ") ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.RecordCount = 0 Then ComicBooks.Close() ComicBooks.Open("select * from [Comic Books] WHERE (ComicID=" & CInt(Me.ComicBookID.Text) & ") ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) End If ComicBooks.MoveFirst() ComicNames.Open("select * from [Comic Names] ORDER by [ComicName];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBookPages.Open("select * from ComicBookPages;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] ORDER by [ComicPublisher];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookNumber.Text = ComicBooks.Fields("ComicBookNumber").Value Me.ComicBookYear.Text = ComicBooks.Fields("ComicBookyear").Value Me.ComicBookID.Text = ComicBooks.Fields("ComicID").Value Me.ComicBookNumberofPages.Text = ComicBooks.Fields("ComicBookNumberOfPages").Value Me.ComicBookPrice.Text = ComicBooks.Fields("ComicBookPrice").Value Me.ComicBookValue.Text = ComicBooks.Fields("ComicBookValue").Value Me.ComicAnnualCheckBox.Checked = ComicBooks.Fields("ComicBookAnnual").Value Me.ComicMemoTextBox.Text = ComicBooks.Fields("ComicBookReview").Value Me.ComicBookCrew.Text = ComicBooks.Fields("ComicBookCrew").Value If ComicBooks.Fields("ComicBookScanned").Value = True Then Me.MakeWeb.ForeColor = System.Drawing.Color.Red Else Me.MakeWeb.ForeColor = System.Drawing.Color.Black End If ComicNames.MoveFirst() ComicBookName.Items.Clear() Do Until ComicNames.EOF ComicBookName.Items.Add(ComicNames.Fields("ComicName").Value) ComicNames.MoveNext() Loop ComicNames.Close() ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookName.Text = ComicNames.Fields("ComicName").Value ComicPublisher.MoveFirst() ComicBookPublisher.Items.Clear() Do Until ComicPublisher.EOF ComicBookPublisher.Items.Add(ComicPublisher.Fields("Comicpublisher").Value) ComicPublisher.MoveNext() Loop ComicPublisher.Close() ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.ComicBookPublisher.Text = ComicPublisher.Fields("ComicPublisher").Value ComicBooksTemp.Open("SELECT [Comic Books].ComicBookName, Count([Comic Books].ComicBookName) AS CountOfComicBookName FROM [Comic Books] GROUP BY [Comic Books].ComicBookName HAVING ((([Comic Books].ComicBookName)=" & ComicNames.Fields("ComicNameID").Value & "));", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.Text = ComicBooks.RecordCount & " CountOfDisplayedComic: " & ComicBooksTemp.Fields("CountoFComicBookName").Value ComicBooksTemp.Close() ComicBooksTemp.Open("select * from [Comic Books] WHERE (ComicBookName=" & ComicNames.Fields("ComicNameID").Value & ") ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Dim CBPages As Int64 = 0 ComicBooksTemp.MoveFirst() Do Until ComicBooksTemp.EOF CBPages = CBPages + ComicBooksTemp.Fields("ComicBookNumberOfPages").Value ComicBooksTemp.MoveNext() Loop ComicBooksTemp.Close() Me.Text = Me.Text & " CountOfCurrentComicPages: " & CBPages ComicBooks.Close() If Me.ComicAnnualCheckBox.Checked = False Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg", FileAttribute.Normal) <> "" Then Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "cover.jpg") Else Me.BackgroundImage = Nothing End If Else If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "cover.jpg", FileAttribute.Normal) <> "" Then Me.BackgroundImage = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "cover.jpg") Else Me.BackgroundImage = Nothing End If End If Dim pagenumber As Long For pagenumber = 1 To Me.ComicBookNumberofPages.Text If Me.ComicAnnualCheckBox.Checked = False Then If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(pagenumber) Me.SuspendLayout() Me.ComicPictureBox(pagenumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(pagenumber).Location = New System.Drawing.Point(CInt((pagenumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((pagenumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(pagenumber).Name = "PictureBox" & pagenumber Me.ComicPictureBox(pagenumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") Me.ComicPictureBox(pagenumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(pagenumber)) Me.ResumeLayout() End If Else If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(pagenumber) Me.SuspendLayout() Me.ComicPictureBox(pagenumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(pagenumber).Location = New System.Drawing.Point(CInt((pagenumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((pagenumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(pagenumber).Name = "PictureBox" & pagenumber Me.ComicPictureBox(pagenumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\annual" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") Me.ComicPictureBox(pagenumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(pagenumber)) Me.ResumeLayout() End If End If Next pagenumber ComicNames.Close() ComicPublisher.Close() ComicBookPages.Close() ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID] ;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Close() formloading = False endnext: End Sub Private Sub NewRecord_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NewRecord.Click Dim Y As Int32 Me.SuspendLayout() For Y = 1 To Me.ComicBookNumberofPages.Text Me.Controls.Remove(Me.ComicPictureBox(Y)) Me.ComicPictureBox(Y).Dispose() Me.ComicPictureBox(Y) = Nothing Next Y ReDim ComicPictureBox(0) Me.ResumeLayout() formloading = True ComicBooks.Open("select * from [Comic Books];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.AddNew() ComicBooks.Fields("ComicBookNumber").Value = 0 ComicBooks.Fields("ComicBookyear").Value = 1900 ComicBooks.Fields("ComicBookPrice").Value = 0 ComicBooks.Fields("ComicBookValue").Value = 0 ComicBooks.Fields("ComicBookName").Value = 1 ComicBooks.Fields("ComicBookPublisher").Value = 1 ComicBooks.Fields("ComicBookAnnual").Value = False ComicBooks.Fields("ComicBookReview").Value = "none" ComicBooks.Fields("ComicBookCrew").Value = "unknown" ComicBooks.Update() Me.ComicBookID.Text = ComicBooks.Fields("ComicID").Value ComicNames.Open("select * from [Comic Names] ORDER by [ComicName];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBookPages.Open("select * from ComicBookPages;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] ORDER by [ComicPublisher];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.Text = ComicBooks.RecordCount Me.ComicBookNumber.Text = ComicBooks.Fields("ComicBookNumber").Value Me.ComicBookYear.Text = ComicBooks.Fields("ComicBookyear").Value Me.ComicBookNumberofPages.Text = ComicBooks.Fields("ComicBookNumberOfPages").Value Me.ComicBookPrice.Text = ComicBooks.Fields("ComicBookPrice").Value Me.ComicBookValue.Text = ComicBooks.Fields("ComicBookValue").Value Me.ComicAnnualCheckBox.Checked = ComicBooks.Fields("ComicBookAnnual").Value Me.ComicMemoTextBox.Text = ComicBooks.Fields("ComicBookReview").Value Me.ComicBookCrew.Text = ComicBooks.Fields("ComicBookCrew").Value If ComicBooks.Fields("ComicBookScanned").Value = True Then Me.MakeWeb.ForeColor = System.Drawing.Color.Red Else Me.MakeWeb.ForeColor = System.Drawing.Color.Black End If ComicNames.MoveFirst() ComicBookName.Items.Clear() Do Until ComicNames.EOF ComicBookName.Items.Add(ComicNames.Fields("ComicName").Value) ComicNames.MoveNext() Loop ComicNames.Close() REM ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) REM Me.ComicBookName.Text = ComicNames.Fields("ComicName").Value ComicPublisher.MoveFirst() ComicBookPublisher.Items.Clear() Do Until ComicPublisher.EOF ComicBookPublisher.Items.Add(ComicPublisher.Fields("Comicpublisher").Value) ComicPublisher.MoveNext() Loop ComicPublisher.Close() REM ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) REM Me.ComicBookPublisher.Text = ComicPublisher.Fields("ComicPublisher").Value ComicBooks.Close() Dim pagenumber As Long For pagenumber = 1 To Me.ComicBookNumberofPages.Text If Dir(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg", FileAttribute.Normal) <> "" Then ReDim Preserve ComicPictureBox(pagenumber) Me.SuspendLayout() Me.ComicPictureBox(pagenumber) = New System.Windows.Forms.PictureBox Me.ComicPictureBox(pagenumber).Location = New System.Drawing.Point(CInt((pagenumber - 1) Mod 20) * PictureBoxWidth, 201 + Math.Floor((pagenumber - 1) / 20) * PictureBoxHeight) Me.ComicPictureBox(pagenumber).Name = "PictureBox" & pagenumber Me.ComicPictureBox(pagenumber).Size = New System.Drawing.Size(PictureBoxWidth, PictureBoxHeight) Me.ComicPictureBox(pagenumber).Image = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\" & CStr(Me.ComicBookYear.Text) & "\" & UCase(CStr(Me.ComicBookPublisher.Text)) & "\" & UCase(CStr(Me.ComicBookName.Text)) & "\" & Me.ComicBookNumber.Text & "page" & pagenumber & ".jpg") Me.ComicPictureBox(pagenumber).SizeMode = PictureBoxSizeMode.StretchImage Me.Controls.Add(Me.ComicPictureBox(pagenumber)) Me.ResumeLayout() End If Next pagenumber REM ComicNames.Close() REM ComicPublisher.Close() ComicBookPages.Close() Me.BackgroundImage = Nothing ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Me.Text = ComicBooks.RecordCount ComicBooks.Close() formloading = False endprevious: End Sub Private Sub ComicBookNumber_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComicBookNumber.Leave If formloading = False Then ComicBooks.Open("select * from [Comic Books] where (ComicID=" & Me.ComicBookID.Text & ");", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Fields("ComicBookNumber").Value = Me.ComicBookNumber.Text ComicBooks.Update() ComicBooks.Close() End If End Sub Private Sub ComicBookYear_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComicBookYear.Leave If formloading = False Then ComicBooks.Open("select * from [Comic Books] where (ComicID=" & Me.ComicBookID.Text & ");", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Fields("ComicBookYear").Value = Me.ComicBookYear.Text ComicBooks.Update() ComicBooks.Close() End If End Sub Private Sub ComicBookPrice_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComicBookPrice.Leave If formloading = False Then ComicBooks.Open("select * from [Comic Books] where (ComicID=" & Me.ComicBookID.Text & ");", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Fields("ComicBookPrice").Value = Me.ComicBookPrice.Text ComicBooks.Update() ComicBooks.Close() End If End Sub Private Sub ComicBookValue_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComicBookValue.Leave If formloading = False Then ComicBooks.Open("select * from [Comic Books] where (ComicID=" & Me.ComicBookID.Text & ");", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Fields("ComicBookValue").Value = Me.ComicBookValue.Text ComicBooks.Update() ComicBooks.Close() End If End Sub Private Sub JpegFix_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) fixjpeg() End Sub Private Sub ComicBookName_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComicBookName.LostFocus If formloading = False Then ComicNames.Open("select * from [Comic Names] where ComicName='" & Me.ComicBookName.Text & "'", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicNames.RecordCount = 0 Then ComicNames.AddNew() ComicNames.Fields("ComicName").Value = Me.ComicBookName.Text ComicNames.Update() ComicBooks.Open("select * from [Comic Books] where (ComicID=" & Me.ComicBookID.Text & ");", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Fields("ComicBookName").Value = ComicNames.Fields("ComicNameID").Value ComicBooks.Update() ComicBooks.Close() Me.ComicBookName.Items.Add(Me.ComicBookName.Text) End If ComicNames.Close() End If If formloading = False Then ComicNames.Open("select * from [Comic Names] where ComicName='" & Me.ComicBookName.Text & "'", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Open("select * from [Comic Books] where (ComicID=" & Me.ComicBookID.Text & ")", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Fields("ComicBookName").Value = ComicNames.Fields("ComicNameID").Value ComicBooks.Update() ComicBooks.Close() ComicNames.Close() End If End Sub Public Sub makewallpaperdeedtree() Dim CoverHeight As Int64 = 300 Dim CoverWidth As Int64 = 200 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 7200 Dim WPPhotoHeight As Integer = 18000 ' WPArea = WPPhotoWidth * WPPhotoHeight ComicBooks.Open("select * from [Comic Books] where ((ComicBookScanned=" & True & ") AND ((ComicBookYear=1990) OR (ComicBookYear=1991) OR (ComicBookYear=1992) OR (ComicBookYear=1993))) ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = CoverHeight / ((WPPhotoHeight - CoverHeight) / 12) CoverWidthSampling = CoverWidth / ((WPPhotoWidth - CoverWidth) / 30) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 1 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = 0 Dim HBorder As Int64 = 0 WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 WPHeightCount = WPPhotoHeight - 1 - CoverHeight ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\720018000whitesmoke.jpg") ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\720018000whitesmoke.jpg") Do Until ComicBooks.EOF Select Case CurrentComic Case Is < 5 ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = 5 Then WPHeightCount = WPPhotoHeight - CoverHeight * 2 - 1 WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 - 2 * CoverWidth Else WPHeightCount = WPHeightCount - CoverHeight End If Case Is < 9 ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = 6 Then WPWidthCount = WPWidthCount + CoverWidth Else If CurrentComic = 9 Then WPWidthCount = CoverWidth / 2 + WPPhotoWidth / 2 + CoverWidth WPHeightCount = WPPhotoHeight - 1 - 2 * CoverHeight Else WPHeightCount = WPHeightCount - CoverHeight End If End If Case Is < 13 ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = 10 Then WPWidthCount = WPWidthCount - CoverWidth Else If CurrentComic = 13 Then WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 - 4 * CoverWidth WPHeightCount = WPPhotoHeight - 1 - 2 * CoverHeight Else WPHeightCount = WPHeightCount - CoverHeight End If End If Case Is < 17 ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = 14 Then WPWidthCount = WPWidthCount + CoverWidth Else If CurrentComic = 17 Then WPWidthCount = WPPhotoWidth / 2 + CoverWidth / 2 + 3 * CoverWidth WPHeightCount = WPPhotoHeight - 1 - 2 * CoverHeight Else WPHeightCount = WPHeightCount - CoverHeight End If End If Case Is < 21 ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = 18 Then WPWidthCount = WPWidthCount - CoverWidth Else If CurrentComic = 21 Then WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 WPHeightCount = WPPhotoHeight - 1 - 5 * CoverHeight Else WPHeightCount = WPHeightCount - CoverHeight End If End If Case Is > ComicBooks.RecordCount - 48 Select Case CurrentComic Case Is < ComicBooks.RecordCount - 40 If CurrentComic = ComicBooks.RecordCount - 47 Then WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 End If ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 WPHeightCount = WPHeightCount - CoverHeight If WPHeightCount < CoverHeight Then Exit Do If CurrentComic = ComicBooks.RecordCount - 40 Then WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 - 2 * CoverWidth WPHeightCount = WPHeightCount + 6 * CoverHeight End If Case Is < ComicBooks.RecordCount - 33 ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = ComicBooks.RecordCount - 33 Then WPWidthCount = WPPhotoWidth / 2 + CoverWidth / 2 + CoverWidth WPHeightCount = WPHeightCount + 4 * CoverHeight Else If CurrentComic < ComicBooks.RecordCount - 35 Then WPHeightCount = WPHeightCount - CoverHeight Else WPWidthCount = WPWidthCount - CoverWidth End If If WPHeightCount < CoverHeight Then Exit Do End If Case Is < ComicBooks.RecordCount - 26 ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = ComicBooks.RecordCount - 26 Then WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 - 4 * CoverWidth WPHeightCount = WPHeightCount + 4 * CoverHeight Else If CurrentComic < ComicBooks.RecordCount - 28 Then WPHeightCount = WPHeightCount - CoverHeight Else WPWidthCount = WPWidthCount + CoverWidth End If If WPHeightCount < CoverHeight Then Exit Do End If Case Is < ComicBooks.RecordCount - 19 ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = ComicBooks.RecordCount - 19 Then WPWidthCount = WPPhotoWidth / 2 + CoverWidth / 2 + 3 * CoverWidth WPHeightCount = WPHeightCount + 4 * CoverHeight Else If CurrentComic < ComicBooks.RecordCount - 21 Then WPHeightCount = WPHeightCount - CoverHeight Else WPWidthCount = WPWidthCount - CoverWidth End If If WPHeightCount < CoverHeight Then Exit Do End If Case Is < ComicBooks.RecordCount - 12 ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = ComicBooks.RecordCount - 12 Then WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 - 6 * CoverWidth WPHeightCount = WPHeightCount + 4 * CoverHeight Else If CurrentComic < ComicBooks.RecordCount - 14 Then WPHeightCount = WPHeightCount - CoverHeight Else WPWidthCount = WPWidthCount + CoverWidth End If If WPHeightCount < CoverHeight Then Exit Do End If Case Is < ComicBooks.RecordCount - 5 ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = ComicBooks.RecordCount - 5 Then WPWidthCount = WPPhotoWidth / 2 + CoverWidth / 2 + 5 * CoverWidth WPHeightCount = WPHeightCount - 2 * CoverHeight Else If CurrentComic < ComicBooks.RecordCount - 7 Then WPWidthCount = WPWidthCount - CoverWidth Else WPHeightCount = WPHeightCount + CoverHeight End If If WPHeightCount < CoverHeight Then Exit Do End If Case Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = ComicBooks.RecordCount + 1 Then Exit Do WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 + 5 * CoverWidth WPHeightCount = WPHeightCount - 2 * CoverHeight Else If CurrentComic < ComicBooks.RecordCount Then WPWidthCount = WPWidthCount + CoverWidth Else WPHeightCount = WPHeightCount + CoverHeight End If If WPHeightCount < CoverHeight Then Exit Do End If End Select Case Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To CoverHeight - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * (TempWPArea.Height) / CoverHeight)), 1)) Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic = ComicBooks.RecordCount - 50 Then WPHeightCount = WPHeightCount - CoverHeight WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 End If Select Case (CurrentComic - 21) Mod 7 Case 1 WPWidthCount = WPWidthCount - CoverWidth Case 2 WPWidthCount = WPWidthCount + 2 * CoverWidth Case 3 WPWidthCount = WPWidthCount - 3 * CoverWidth Case 4 WPWidthCount = WPWidthCount + 4 * CoverWidth Case 5 WPWidthCount = WPWidthCount - 5 * CoverWidth Case 6 WPWidthCount = WPWidthCount + 6 * CoverWidth Case 0 WPWidthCount = WPPhotoWidth / 2 - CoverWidth / 2 WPHeightCount = WPHeightCount - CoverHeight If WPHeightCount < CoverHeight Then Exit Do End Select End Select TempWPArea.Dispose() ComicBooks.MoveNext() Loop ComicBooks.Close() ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "19901993comicwallpapertree.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Dispose() MsgBox("Welcome!") End Sub Public Sub makewallpaperunique() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 18000 Dim WPPhotoHeight As Integer = 7200 ' WPArea = WPPhotoWidth * WPPhotoHeight ComicBooksUnique.Open("SELECT DISTINCTROW [Comic Names].ComicNameID FROM [Comic Names] INNER JOIN [Comic Books] ON [Comic Names].ComicNameID = [Comic Books].ComicBookName ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooksUnique.MoveFirst() REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = CoverHeight / ((WPPhotoHeight) / 1) CoverWidthSampling = CoverWidth / ((WPPhotoWidth) / 3) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 1 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = CoverWidth / 2 Dim HBorder As Int64 = CoverHeight / 2 WBorder = 0 HBorder = 0 ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\720018000whitesmoke.jpg") ' ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\720018000whitesmoke.jpg") Dim ComicMoveNumber As Int64 Randomize() Do Until ComicBooksUnique.EOF ComicBooks.Open("select * from [Comic Books] where (ComicBookName=" & ComicBooksUnique.Fields("ComicNameID").Value & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicMoveNumber = Math.Floor(Rnd(ComicBooks.RecordCount)) ComicBooks.Move(ComicMoveNumber) If CurrentComic Mod 12 * 5000 = 0 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If ComicBooks.Close() ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To Math.Floor(CoverWidth / CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeight / CoverHeightSampling) - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidth / CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeight / CoverHeightSampling))), 1)) Next TY Next TX If CurrentComic Mod 3 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaperuniquetitle" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 121 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\720018000whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + Math.Floor(CoverWidth / CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(30 * CoverWidth / CoverWidthSampling) - 30 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount + 3 >= WPPhotoHeight Then TempWPArea.Dispose() Exit Do End If End If End If TempWPArea.Dispose() ComicBooksUnique.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic = 1657 Then CurrentComic = CurrentComic + 1 End If Loop ComicBooks.Close() ComicBooksUnique.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome!") End Sub Public Sub makewallpapercircle() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 9600 Dim WPPhotoHeight As Integer = 9600 ' WPArea = WPPhotoWidth * WPPhotoHeight ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = 150 CoverWidthSampling = 150 Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 0 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = CoverWidth / 2 Dim HBorder As Int64 = CoverHeight / 2 WBorder = 0 HBorder = 0 REM ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\96009600whitesmoke.jpg") If Dir(ImagingRootDirectory & ImagingDirectory & "\96009600whitesmoke.jpg", FileAttribute.Normal) = "" Then ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\96009600whitesmoke.jpg") Else ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\96009600whitesmoke.jpg") End If Do Until ComicBooks.EOF If CurrentComic Mod 12 * 5000 = 0 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeightSampling) - 1 Select Case CurrentComic Mod 36 Case 0 To 11 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount + 300 + 150 * (CurrentComic Mod 12), HBorder + TY + IIf((CurrentComic Mod 12) < 5, (6 - (CurrentComic Mod 12)) * 36, IIf((CurrentComic Mod 12) > 7, ((CurrentComic Mod 12) - 7) * 36, 0)) + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Case 12 To 23 ComicWPScreen.SetPixel(WBorder + TX + IIf((CurrentComic Mod 12) < 5, (6 - (CurrentComic Mod 12)) * 36, IIf((CurrentComic Mod 12) > 7, ((CurrentComic Mod 12) - 7) * 36, 0)) + 200 + WPWidthCount, HBorder + TY + WPHeightCount + 360 + 150 * (CurrentComic Mod 12), argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Case 24 To 35 ComicWPScreen.SetPixel(WBorder + TX + IIf((CurrentComic Mod 12) < 5, ((CurrentComic Mod 12) - 6) * 36, IIf((CurrentComic Mod 12) > 7, (7 - (CurrentComic Mod 12)) * 36, 216)) + 1834 + WPWidthCount, HBorder + TY + WPHeightCount + 360 + 150 * (CurrentComic Mod 12), argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) End Select Next TY Next TX CurrentComic = CurrentComic + 1 If CurrentComic Mod 36 = 0 Then If CurrentComic Mod 36 * 16 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaperuniquetitle" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 4 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\96009600whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + 2400 If CurrentComic Mod 36 * 4 = 0 Then WPWidthCount = 0 WPHeightCount = WPHeightCount + 2400 GoTo checkheightfornow If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(30 * CoverWidth / CoverWidthSampling) - 30 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount + 3 >= WPPhotoHeight Then TempWPArea.Dispose() Exit Do End If End If checkheightfornow: End If End If End If TempWPArea.Dispose() ComicBooks.MoveNext() ' If CurrentComic = 1657 Then 'CurrentComic = CurrentComic + 1 ' End If Loop ComicBooks.Close() REM ComicBooksUnique.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome to the track!") End Sub Public Sub makewallpaperuniqueshoebox() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 2400 Dim WPPhotoHeight As Integer = 7200 ' WPArea = WPPhotoWidth * WPPhotoHeight ComicBooksUnique.Open("SELECT DISTINCTROW [Comic Names].ComicNameID FROM [Comic Names] INNER JOIN [Comic Books] ON [Comic Names].ComicNameID = [Comic Books].ComicBookName ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooksUnique.MoveFirst() REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 Dim CCountNumber As Int32 CCountNumber = ComicBooksUnique.RecordCount Dim ACNumber As Int32 Dim UPNumber As Int32 ACNumber = Math.Floor(Math.Sqrt(CCountNumber / 3)) UPNumber = Math.Floor(Math.Sqrt(CCountNumber / 3) * 3) CoverHeightSampling = Math.Floor(((WPPhotoHeight) / UPNumber)) CoverWidthSampling = Math.Floor(((WPPhotoWidth) / ACNumber)) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 1 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = CoverWidth / 2 Dim HBorder As Int64 = CoverHeight / 2 WBorder = 0 HBorder = 0 ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\72002400whitesmoke.jpg") GoTo skipfornow ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\72002400whitesmoke.jpg") skipfornow: Dim ComicMoveNumber As Int64 Randomize() Do Until ComicBooksUnique.EOF ComicBooks.Open("select * from [Comic Books] where (ComicBookName=" & ComicBooksUnique.Fields("ComicNameID").Value & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicMoveNumber = Math.Floor(Rnd(ComicBooks.RecordCount)) ComicBooks.Move(ComicMoveNumber) If CurrentComic Mod 12 * 5000 = 0 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If ComicBooks.Close() ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeightSampling) - 1 ' ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidth / CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeight / CoverHeightSampling))), 1)) ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, TempWPArea.GetPixel(TX * TempWPArea.Width / CoverWidthSampling, TY * TempWPArea.Height / CoverHeightSampling)) Next TY Next TX If CurrentComic Mod 13 * 40 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoHeight & WPPhotoWidth & "shoeboxcomicwallpaperuniquetitle" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 2 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\720018000whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - CoverWidthSampling Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeightSampling) If WPHeightCount + 3 >= WPPhotoHeight Then TempWPArea.Dispose() Exit Do End If End If End If TempWPArea.Dispose() ComicBooksUnique.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic = 1657 Then CurrentComic = CurrentComic + 1 End If Loop ' ComicBooks.Close() ComicBooksUnique.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome!") End Sub Public Sub makewallpaperlineart() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 1800 Dim WPPhotoHeight As Integer = 1800 ' WPArea = WPPhotoWidth * WPPhotoHeight ComicBooksUnique.Open("SELECT DISTINCTROW [Comic Names].ComicNameID FROM [Comic Names] INNER JOIN [Comic Books] ON [Comic Names].ComicNameID = [Comic Books].ComicBookName ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooksUnique.MoveFirst() REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 Dim CCountNumber As Int32 CCountNumber = ComicBooksUnique.RecordCount Dim ACNumber As Int32 Dim UPNumber As Int32 ACNumber = Math.Floor(Math.Sqrt(CCountNumber / 3)) UPNumber = Math.Floor(Math.Sqrt(CCountNumber / 3) * 3) CoverHeightSampling = Math.Floor(((WPPhotoHeight) / UPNumber)) CoverWidthSampling = Math.Floor(((WPPhotoWidth) / ACNumber)) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 1 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 0 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = CoverWidth / 2 Dim HBorder As Int64 = CoverHeight / 2 WBorder = 0 HBorder = 0 Dim LineSections As Int32 = 0 If Dir(ImagingRootDirectory & ImagingDirectory & "\lineart\72004800whitesmoke.jpg", FileAttribute.Normal) <> "" Then ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\lineart\1080010800whitesmoke.jpg") Else ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\lineart\18001800whitesmoke.jpg") skipfornow: End If Dim ComicMoveNumber As Int64 Randomize() Dim LinePointCount As Int32 = 0 Dim LinePointDirection As Int32 = 1 Dim LineLength As Int32 = 4800 LineLength = 900 + Math.Floor(Rnd(1) * 900) Do Until ComicBooksUnique.EOF ComicBooks.Open("select * from [Comic Books] where (ComicBookName=" & ComicBooksUnique.Fields("ComicNameID").Value & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicMoveNumber = Math.Floor(Rnd(ComicBooks.RecordCount)) ComicBooks.Move(ComicMoveNumber) If CurrentComic Mod 12 * 5000 = 0 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If ComicBooks.Close() ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") LineSections = Math.Floor(900 / TempWPArea.Width) + Math.Floor(Rnd() * Math.Floor(900 / TempWPArea.Width)) For TY = 0 To TempWPArea.Height - 1 For TX = 0 To TempWPArea.Width - 1 ' ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidth / CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeight / CoverHeightSampling))), 1)) Select Case LinePointDirection Case 1 ComicWPScreen.SetPixel(WBorder + LinePointCount + WPWidthCount, HBorder + WPHeightCount, TempWPArea.GetPixel(TX, TY)) Case -1 ComicWPScreen.SetPixel(WBorder - LinePointCount + WPWidthCount, HBorder + WPHeightCount, TempWPArea.GetPixel(TX, TY)) End Select LinePointCount = LinePointCount + LinePointDirection REM Me.Text = TX & ":" & TY & ":" & LineSections If LinePointCount = LineLength Then LinePointDirection = -1 WPWidthCount = 1799 WPHeightCount = WPHeightCount + 4 If TY + LineSections > TempWPArea.Height Then LineSections = TempWPArea.Height - TY End If If WPHeightCount > 1799 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\lineart\" & WPPhotoHeight & WPPhotoWidth & "18001800orglineartcomicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 36 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\lineart\18001800whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 LinePointCount = 0 LinePointDirection = 1 End If End If If LinePointCount = 0 Then LineSections = Math.Floor(900 / TempWPArea.Width) + Math.Floor(Rnd() * Math.Floor(900 / TempWPArea.Width)) If TY + LineSections > TempWPArea.Height Then LineSections = TempWPArea.Height - TY End If LineLength = 900 + Math.Floor(Rnd(1) * 900) LinePointDirection = 1 WPWidthCount = 0 WPHeightCount = WPHeightCount + 4 If WPHeightCount > 1799 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\lineart\" & WPPhotoHeight & WPPhotoWidth & "18001800orglineartcomicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 36 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\lineart\18001800whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 End If End If Next TX Next TY donextcomic: TempWPArea.Dispose() ComicBooksUnique.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic = 1657 Then CurrentComic = CurrentComic + 1 End If Loop ' ComicBooks.Close() ComicBooksUnique.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome!") End Sub Public Sub makedeathtowerpaper() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 14400 Dim WPPhotoHeight As Integer = 12000 ' WPArea = WPPhotoWidth * WPPhotoHeight ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = CoverHeight / ((WPPhotoHeight - CoverHeight) / 12) CoverWidthSampling = CoverWidth / ((WPPhotoWidth - CoverWidth) / 30) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim I As Int32 Dim CurrentComic As Int32 = 1 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = CoverWidth / 2 Dim HBorder As Int64 = CoverHeight / 2 ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\720018000whitesmoke.jpg") If Dir(ImagingRootDirectory & ImagingDirectory & "\1200014400whitesmoke.jpg") = "" Then ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\1200014400whitesmoke.jpg") End If ComicWPScreen = New Drawing.Bitmap(ImagingRootDirectory & ImagingDirectory & "\1200014400whitesmoke.jpg") Do Until Dir(ImagingRootDirectory & ImagingDirectory & "\dutytower400\" & WPPhotoHeight & WPPhotoWidth & "comicwallpaper" & CurrentWallpaper & ".jpg") = "" CurrentWallpaper = CurrentWallpaper + 1 Me.Text = "current wallpaper " & CurrentWallpaper ComicBooks.Move(30) Loop Do Until ComicBooks.EOF If CurrentComic Mod 12 * 30 = -10 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1710, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If ComicNames.Close() ComicPublisher.Close() CoverWidthSampling = Math.Floor(14400 / (ComicBooks.Fields("ComicBookNumberOfPages").Value + 1)) TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") Me.Text = "Processing " & DirectoryString For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To 399 ComicWPScreen.SetPixel(TX + WPWidthCount, TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor((TX) * (TempWPArea.Width) / Math.Floor(CoverWidthSampling)), Math.Floor((TY) * (TempWPArea.Height) / Math.Floor(400))), 1)) Next TY Next TX If CurrentComic Mod 902 = 10000 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoHeight & WPPhotoWidth & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 3 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\18040720whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) If WPWidthCount + 1 >= WPPhotoWidth Then WPWidthCount = 0 WPHeightCount = WPHeightCount + 400 ' If WPHeightCount + 3 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then 'TempWPArea.Dispose() ' Exit Do ' End If End If End If TempWPArea.Dispose() For I = 1 To ComicBooks.Fields("ComicBookNumberOfPages").Value If I < ComicBooks.Fields("ComicBookNumberOfPages").Value Then CoverWidthSampling = Math.Floor(14400 / (ComicBooks.Fields("ComicBookNumberOfPages").Value + 1)) Else CoverWidthSampling = 14400 - WPWidthCount End If TempWPArea = Image.FromFile(DirectoryString & "page" & I & ".jpg") ' Me.Text = "Processing " & DirectoryString & "page" & I & ".jpg" & " currentwidth " & CoverWidthSampling For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To 399 ComicWPScreen.SetPixel(TX + WPWidthCount, TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor((TX) * (TempWPArea.Width) / Math.Floor(CoverWidthSampling)), Math.Floor((TY) * (TempWPArea.Height) / Math.Floor(400))), 1)) ' Me.Text = "Processing " & DirectoryString & "page" & I & ".jpg" & " currentwidth " & CoverWidthSampling & " X " & TX & " Y " & TY Next TY Next TX WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) If WPWidthCount + 1 >= WPPhotoWidth Then WPWidthCount = 0 WPHeightCount = WPHeightCount + 400 If WPHeightCount >= WPPhotoHeight + 400 Then TempWPArea.Dispose() Exit Do End If End If TempWPArea.Dispose() Next I If CurrentComic Mod 30 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\dutytower400\" & WPPhotoHeight & WPPhotoWidth & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ' MsgBox("check save") CurrentWallpaper = CurrentWallpaper + 1 Me.Text = CurrentWallpaper & " wallpaper done!" If CurrentWallpaper = 61 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\1200014400whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 End If ComicBooks.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic = 17100 Then ComicBooks.MoveNext() End If Loop ComicBooks.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome Home!") End Sub Public Sub makewallpapercling() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 2400 Dim WPPhotoHeight As Integer = 6000 WPArea = WPPhotoWidth * WPPhotoHeight ' ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = ((WPPhotoHeight) / 24) CoverWidthSampling = ((WPPhotoWidth) / 15) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 1 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = 0 Dim HBorder As Int64 = 0 ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\720018000whitesmoke.jpg") Dim RGBize As Boolean = False Randomize() If Dir(ImagingRootDirectory & ImagingDirectory & "\windowcling\60002400whitesmoke.jpg") <> "" Then ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\windowcling\60002400whitesmoke.jpg") Else ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\windowcling\60002400whitesmoke.jpg", Imaging.ImageFormat.Jpeg) End If Do Until ComicBooks.EOF If CurrentComic Mod 12 * 30 = -10 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1710, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") If Rnd(1) < 0.5 Then RGBize = True Else RGBize = False End If For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeightSampling) - 1 ' If Not (((CurrentComic > 206 And CurrentComic < 215) Or CurrentComic = 235 Or CurrentComic = 242 Or CurrentComic = 263 Or CurrentComic = 270 Or CurrentComic = 291 Or CurrentComic = 298 Or CurrentComic = 319 Or CurrentComic = 326 Or CurrentComic = 347 Or CurrentComic = 354 Or (CurrentComic > 374 And CurrentComic < 383)) Or ((CurrentComic > 794 And CurrentComic < 803) Or CurrentComic = 235 + 588 Or CurrentComic = 242 + 588 Or CurrentComic = 263 + 588 Or CurrentComic = 270 + 588 Or CurrentComic = 291 + 588 Or CurrentComic = 298 + 588 Or CurrentComic = 319 + 588 Or CurrentComic = 326 + 588 Or CurrentComic = 347 + 588 Or CurrentComic = 354 + 588 Or (CurrentComic > 374 + 588 And CurrentComic < 383 + 588)) Or ((CurrentComic > 206 + 1176 And CurrentComic < 215 + 1176) Or CurrentComic = 235 + 1176 Or CurrentComic = 242 + 1176 Or CurrentComic = 263 + 1176 Or CurrentComic = 270 + 1176 Or CurrentComic = 291 + 1176 Or CurrentComic = 298 + 1176 Or CurrentComic = 319 + 1176 Or CurrentComic = 326 + 1176 Or CurrentComic = 347 + 1176 Or CurrentComic = 354 + 1176 Or (CurrentComic > 374 + 1176 And CurrentComic < 383 + 1176))) Then If CurrentComic Mod 2 = 1 Then ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Else ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), (0.7 * (TX * TY) / (CoverHeightSampling * CoverWidthSampling)))) End If Next TY Next TX If CurrentComic Mod 360 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\windowcling\" & WPPhotoHeight & WPPhotoWidth & "comicwallpaper" & CurrentWallpaper & "withspecksmchello.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoHeight & WPPhotoWidth & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 6 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\windowcling\60002400whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) If WPWidthCount - 30 >= WPPhotoWidth - WBorder - CoverWidthSampling Then ' MsgBox(CurrentComic) WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeightSampling) If WPHeightCount + 3 >= WPPhotoHeight - Math.Floor(HBorder) Then TempWPArea.Dispose() Exit Do End If End If End If TempWPArea.Dispose() ComicBooks.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic = 17100 Then ComicBooks.MoveNext() End If Loop ComicBooks.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome!") End Sub Public Sub makewallpaper() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 10000 Dim WPPhotoHeight As Integer = 15000 WPArea = WPPhotoWidth * WPPhotoHeight ' ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = ((WPPhotoHeight) / 30) CoverWidthSampling = ((WPPhotoWidth) / 12) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CPages As Int32 Dim CurrentComic As Int32 = 0 Dim LastCP As Int32 Dim LastCC As Int32 = 0 Dim CurrentPages As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 Dim CNPages As Int32 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = 0 Dim HBorder As Int64 = 0 ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\720018000whitesmoke.jpg") Dim RGBize As Boolean = False If Dir(ImagingRootDirectory & ImagingDirectory & "\comicpanel\1500010000whitesmoke.jpg") <> "" Then ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\comicpanel\1500010000whitesmoke.jpg") Else ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\1500010000whitesmoke.jpg") End If Do Until ComicBooks.EOF If CurrentComic Mod 12 * 30 = -10 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1710, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") If Rnd(1) < 0.5 Then RGBize = True Else RGBize = False End If REM MsgBox(WPWidthCount) For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeightSampling) - 1 ' If Not (((CurrentComic > 206 And CurrentComic < 215) Or CurrentComic = 235 Or CurrentComic = 242 Or CurrentComic = 263 Or CurrentComic = 270 Or CurrentComic = 291 Or CurrentComic = 298 Or CurrentComic = 319 Or CurrentComic = 326 Or CurrentComic = 347 Or CurrentComic = 354 Or (CurrentComic > 374 And CurrentComic < 383)) Or ((CurrentComic > 794 And CurrentComic < 803) Or CurrentComic = 235 + 588 Or CurrentComic = 242 + 588 Or CurrentComic = 263 + 588 Or CurrentComic = 270 + 588 Or CurrentComic = 291 + 588 Or CurrentComic = 298 + 588 Or CurrentComic = 319 + 588 Or CurrentComic = 326 + 588 Or CurrentComic = 347 + 588 Or CurrentComic = 354 + 588 Or (CurrentComic > 374 + 588 And CurrentComic < 383 + 588)) Or ((CurrentComic > 206 + 1176 And CurrentComic < 215 + 1176) Or CurrentComic = 235 + 1176 Or CurrentComic = 242 + 1176 Or CurrentComic = 263 + 1176 Or CurrentComic = 270 + 1176 Or CurrentComic = 291 + 1176 Or CurrentComic = 298 + 1176 Or CurrentComic = 319 + 1176 Or CurrentComic = 326 + 1176 Or CurrentComic = 347 + 1176 Or CurrentComic = 354 + 1176 Or (CurrentComic > 374 + 1176 And CurrentComic < 383 + 1176))) Then If CurrentWallpaper Mod 2 = 0 Then If CurrentComic Mod 2 = 0 Then ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Else ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), (0.7 * (TX * TY) / (CoverHeightSampling * CoverWidthSampling)))) End If Else If CurrentComic Mod 2 = 1 Then ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Else ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), (0.7 * (TX * TY) / (CoverHeightSampling * CoverWidthSampling)))) End If End If Next TY Next TX If CurrentComic Mod 24 = -20 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoHeight & WPPhotoWidth & "quarkmodelcomicwallpaper" & CurrentWallpaper & "withspecksmchello.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoHeight & WPPhotoWidth & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 5 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\comicpanel\1080010800hotpink.jpg") WPWidthCount = 0 WPHeightCount = 0 Else GoTo skipanotheraddfornow WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - WBorder Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeightSampling) If WPHeightCount - 3 >= WPPhotoHeight - Math.Floor(HBorder) Then TempWPArea.Dispose() Exit Do End If End If End If skipanotheraddfornow: GoTo skippagesfornow CNPages = ComicBooks.Fields("ComicBookNumberOfPages").Value For CPages = 1 To CNPages If CurrentPages = 12000 * 18000 - 1 Then LastCC = CurrentComic LastCP = CurrentPages ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "page" & CPages & ".jpg") End If Me.Text = DirectoryString & " " & CPages & " " & WPWidthCount For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeightSampling) - 1 Select Case CPages Mod 2 Case 0 If TX Mod 2 = 0 Then ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Else ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), (0.7 * (TX * TY) / (CoverHeightSampling * CoverWidthSampling)))) End If Case 1 If TX Mod 2 = 0 Then ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Else ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), (1.7 * (TX * TY) / (CoverHeightSampling * CoverWidthSampling)))) End If End Select GoTo skipnextloopfornow Select Case CPages Mod 3 ' If Not (((CurrentComic > 206 And CurrentComic < 215) Or CurrentComic = 235 Or CurrentComic = 242 Or CurrentComic = 263 Or CurrentComic = 270 Or CurrentComic = 291 Or CurrentComic = 298 Or CurrentComic = 319 Or CurrentComic = 326 Or CurrentComic = 347 Or CurrentComic = 354 Or (CurrentComic > 374 And CurrentComic < 383)) Or ((CurrentComic > 794 And CurrentComic < 803) Or CurrentComic = 235 + 588 Or CurrentComic = 242 + 588 Or CurrentComic = 263 + 588 Or CurrentComic = 270 + 588 Or CurrentComic = 291 + 588 Or CurrentComic = 298 + 588 Or CurrentComic = 319 + 588 Or CurrentComic = 326 + 588 Or CurrentComic = 347 + 588 Or CurrentComic = 354 + 588 Or (CurrentComic > 374 + 588 And CurrentComic < 383 + 588)) Or ((CurrentComic > 206 + 1176 And CurrentComic < 215 + 1176) Or CurrentComic = 235 + 1176 Or CurrentComic = 242 + 1176 Or CurrentComic = 263 + 1176 Or CurrentComic = 270 + 1176 Or CurrentComic = 291 + 1176 Or CurrentComic = 298 + 1176 Or CurrentComic = 319 + 1176 Or CurrentComic = 326 + 1176 Or CurrentComic = 347 + 1176 Or CurrentComic = 354 + 1176 Or (CurrentComic > 374 + 1176 And CurrentComic < 383 + 1176))) Then Case 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Case 2 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), (0.7 * (TX * TY) / (CoverHeightSampling * CoverWidthSampling)))) Case 3 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), (1.7 * (TX * TY) / (CoverHeightSampling * CoverWidthSampling)))) End Select skipnextloopfornow: Next TY Next TX TempWPArea.Dispose() If CurrentComic Mod 24 = -10 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoHeight & WPPhotoWidth & "quarkmodelcomicwallpaper" & CurrentWallpaper & "withspecksmchello.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoHeight & WPPhotoWidth & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 5 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\comicpanel\1080010800hotpink.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - WBorder Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeightSampling) If WPHeightCount - 3 >= WPPhotoHeight - Math.Floor(HBorder) Then TempWPArea.Dispose() Exit Do End If End If End If CurrentPages = CurrentPages + 1 If CPages = 8 Then Exit For Next CPages donextcomic: If CNPages < 8 Then For CPages = CNPages To 8 For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeightSampling) - 1 Select Case CPages Mod 2 ' If Not (((CurrentComic > 206 And CurrentComic < 215) Or CurrentComic = 235 Or CurrentComic = 242 Or CurrentComic = 263 Or CurrentComic = 270 Or CurrentComic = 291 Or CurrentComic = 298 Or CurrentComic = 319 Or CurrentComic = 326 Or CurrentComic = 347 Or CurrentComic = 354 Or (CurrentComic > 374 And CurrentComic < 383)) Or ((CurrentComic > 794 And CurrentComic < 803) Or CurrentComic = 235 + 588 Or CurrentComic = 242 + 588 Or CurrentComic = 263 + 588 Or CurrentComic = 270 + 588 Or CurrentComic = 291 + 588 Or CurrentComic = 298 + 588 Or CurrentComic = 319 + 588 Or CurrentComic = 326 + 588 Or CurrentComic = 347 + 588 Or CurrentComic = 354 + 588 Or (CurrentComic > 374 + 588 And CurrentComic < 383 + 588)) Or ((CurrentComic > 206 + 1176 And CurrentComic < 215 + 1176) Or CurrentComic = 235 + 1176 Or CurrentComic = 242 + 1176 Or CurrentComic = 263 + 1176 Or CurrentComic = 270 + 1176 Or CurrentComic = 291 + 1176 Or CurrentComic = 298 + 1176 Or CurrentComic = 319 + 1176 Or CurrentComic = 326 + 1176 Or CurrentComic = 347 + 1176 Or CurrentComic = 354 + 1176 Or (CurrentComic > 374 + 1176 And CurrentComic < 383 + 1176))) Then Case 0 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(Color.Red, 1)) Case 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(Color.WhiteSmoke, (0.7 * (TX * TY) / (CoverHeightSampling * CoverWidthSampling)))) End Select Next TY Next TX If CurrentComic Mod 24 = -10 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoHeight & WPPhotoWidth & "quarkmodelcomicwallpaper" & CurrentWallpaper & "withspecksmchello.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoHeight & WPPhotoWidth & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 5 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\comicpanel\1080010800hotpink.jpg") WPWidthCount = 0 WPHeightCount = 0 Else GoTo skipaddfornow WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - WBorder Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeightSampling) If WPHeightCount - 3 >= WPPhotoHeight - Math.Floor(HBorder) Then TempWPArea.Dispose() Exit Do End If End If skipaddfornow: End If CurrentPages = CurrentPages + 1 Next CPages End If TempWPArea.Dispose() skippagesfornow: ComicBooks.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic = 17100 Then ComicBooks.MoveNext() End If If CurrentComic Mod 360 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoHeight & WPPhotoWidth & "hihocomicwallpaper" & CurrentWallpaper & "withspecksmchello.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoHeight & WPPhotoWidth & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 6 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\comicpanel\1500010000whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else If CurrentComic Mod 12 = 0 Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeightSampling) Else WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) End If Me.Text = CurrentComic GoTo skipaddforanothernow WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) If WPWidthCount - 3 >= WPPhotoWidth - WBorder - CoverWidthSampling Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeightSampling) If WPHeightCount - 3 >= WPPhotoHeight - Math.Floor(HBorder) Then TempWPArea.Dispose() Exit Do End If End If skipaddforanothernow: End If Loop ComicBooks.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome!") End Sub Public Sub makewallpaperflooring() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 10800 Dim WPPhotoHeight As Integer = 1200 Dim CPages As Int32 ' Dim CurrentPages As Int64 = 0 Dim LastCp As Int64 = 0 WPArea = WPPhotoWidth * WPPhotoHeight REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicBooks.MoveFirst() ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = CoverHeight / ((WPPhotoHeight - CoverHeight) / 90) REM CoverHeightSampling = CoverHeight / ((WPPhotoHeight) / 1) REM CoverWidthSampling = CoverWidth / ((WPPhotoWidth - CoverWidth) / 120) CoverWidthSampling = CoverWidth / ((WPPhotoWidth) / 1) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 1 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = 0 Dim HBorder As Int64 = 0 Dim backupdate As Date Dim floorwalkcomicbooknamestring As String backupdate = Now ' WBorder = 0 WBorder = 0 ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\50058800whitesmoke.jpg") GoTo skipnewfornow ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) ' GoTo skipfillfornow For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX skipfillfornow: ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\floorwalk\108001200whitesmoke.jpg") ComicWPScreen.Dispose() ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\72064800whitesmoke.jpg") skipnewfornow: ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() Dim PageWidthStandard0 As Int32 = 0 Dim PageWidthStandard1 As Int32 = 0 Dim PageWidthStandard2 As Int32 = 0 ' CoverWidth = WPPhotoWidth / (Math.Floor((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 3) + IIf(PageWidthStandard0 = 0, IIf(Math.Floor((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 24 - 1) < 1, 1, Math.Floor((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 24 - 1)), 0)) ' MsgBox(PageWidthStandard0) ' MsgBox(CoverWidth) Do Until ComicBooks.EOF Select Case (ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) Mod 3 Case 0 PageWidthStandard0 = -1 PageWidthStandard1 = -1 PageWidthStandard2 = -1 Case 1 PageWidthStandard0 = 0 PageWidthStandard1 = 1 PageWidthStandard2 = 1 Case 2 PageWidthStandard0 = 0 PageWidthStandard1 = 0 PageWidthStandard2 = 1 End Select CoverWidth = WPPhotoWidth / (Math.Floor((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 3) + IIf(PageWidthStandard0 < 0, 0, IIf(PageWidthStandard0 = 0, 1, 0))) ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\floorwalk\108001200whitesmoke.jpg") REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If CurrentPages = 120 * 180 - 1 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) floorwalkcomicbooknamestring = CStr(ComicBooks.Fields("ComicBookyear").Value) & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & UCase(CStr(ComicNames.Fields("ComicName").Value)) & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) floorwalkcomicbooknamestring = CStr(ComicBooks.Fields("ComicBookyear").Value) & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If Me.Text = "Start Time: " & backupdate & " Current Comic Book: " & ComicPublisher.Fields("ComicPublisher").Value & " " & ComicBooks.Fields("ComicBookYear").Value & " " & ComicNames.Fields("ComicName").Value & " #" & ComicBooks.Fields("ComicBookNumber").Value & " Number of Comic Books Pages Processed: " & CurrentPages TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To CoverWidth - 1 For TY = 0 To 399 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * TempWPArea.Width / CoverWidth), Math.Floor(TY * TempWPArea.Height / 400)), 1)) Next TY Next TX CurrentPages = CurrentPages + 1 If 1 Mod 90 = 0 Then ' If CurrentPages Mod 90 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\floorwalk\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\floorwalk\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 241 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\floorwalk\108001200whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + CoverWidth - 1 GoTo skipheightfornow WPWidthCount = WPWidthCount + Math.Floor(CoverWidth / CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(1 * CoverWidth / CoverWidthSampling) - 1 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then TempWPArea.Dispose() Exit Do End If End If skipheightfornow: End If ComicNames.Close() ComicPublisher.Close() TempWPArea.Dispose() For CPages = 1 To ComicBooks.Fields("ComicBookNumberOfPages").Value If CurrentPages = 12000 * 18000 - 1 Then LastCC = CurrentComic LastCp = CurrentPages ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "page" & CPages & ".jpg") End If For TX = 0 To CoverWidth - 1 For TY = 0 To 399 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width) / CoverWidth), Math.Floor(TY * TempWPArea.Height / 400)), 1)) Next TY Next TX CurrentPages = CurrentPages + 1 If 1 Mod 90 = 0 Then ' If CurrentPages Mod 90 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 1773 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\108001200whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + CoverWidth - 1 Select Case CPages ' Case Math.Floor((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 3) + PageWidthStandard1 + PageWidthStandard2 - Math.Floor(((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 24) - 1) Case Math.Floor((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 3) + IIf(PageWidthStandard1 < 0, -1, IIf(PageWidthStandard1 = 0, 0, 0)) ' MsgBox(CPages) ' CoverWidth = Math.Floor(WPPhotoWidth / (Math.Floor(((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 3) + IIf(PageWidthStandard1 = 0, IIf(Math.Floor((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 24 - 1) < 1, 1, Math.Floor((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 24 - 1)), 0)))) CoverWidth = Math.Floor(WPPhotoWidth / (Math.Floor(((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 3) + IIf(PageWidthStandard1 < 0, 0, IIf(PageWidthStandard1 = 0, 1, 0))))) ' MsgBox(CoverWidth) ' MsgBox(CPages) WPWidthCount = 0 WPHeightCount = WPHeightCount + 400 Case 2 * Math.Floor((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 3) + IIf(PageWidthStandard2 < 0, -1, IIf(PageWidthStandard2 = 0, 0, 0)) + IIf(PageWidthStandard1 < 0, 0, IIf(PageWidthStandard1 = 0, 1, 0)) ' CoverWidth = Math.Floor(WPPhotoWidth / (Math.Floor(((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 3) + IIf(PageWidthStandard2 = 0, 1, 0)))) + IIf(((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) Mod 3) = 1, -1, 0) ' CoverWidth = Math.Floor(WPPhotoWidth / (Math.Floor(((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 3) + IIf(PageWidthStandard1 = 0, 1, 0)))) CoverWidth = Math.Floor(WPPhotoWidth / (Math.Floor(((ComicBooks.Fields("ComicBookNumberOfPages").Value + 1) / 3) + IIf(PageWidthStandard2 < 0, 0, IIf(PageWidthStandard2 = 0, 1, 0))))) ' CoverWidth = Math.Floor(WPPhotoWidth / (ComicBooks.Fields("ComicBookNumberOfPages").Value - CPages)) ' MsgBox(CoverWidth) ' MsgBox(CPages) WPWidthCount = 0 WPHeightCount = WPHeightCount + 400 End Select GoTo skipanotherfornow If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(1 * CoverWidth / CoverWidthSampling) - 1 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then TempWPArea.Dispose() Exit Do End If End If skipanotherfornow: End If Next CPages ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\floorwalk\" & WPPhotoWidth & WPPhotoHeight & floorwalkcomicbooknamestring & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\floorwalk\" & WPPhotoWidth & WPPhotoHeight & floorwalkcomicbooknamestring & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 361 Then Exit Do ComicWPScreen.Dispose() WPWidthCount = 0 WPHeightCount = 0 ComicBooks.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic = 1657 Then CurrentComic = CurrentComic + 1 End If Loop ComicBooks.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome!") End Sub Public Sub makewallpaperall() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 1800 Dim WPPhotoHeight As Integer = 1200 Dim CPages As Int32 ' Dim CurrentPages As Int64 = 0 Dim LastCp As Int64 = 0 WPArea = WPPhotoWidth * WPPhotoHeight REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicBooks.MoveFirst() ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = ((WPPhotoHeight) / 21) REM CoverHeightSampling = CoverHeight / ((WPPhotoHeight) / 1) REM CoverWidthSampling = CoverWidth / ((WPPhotoWidth - CoverWidth) / 120) CoverWidthSampling = ((WPPhotoWidth) / 31) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 1 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = CoverWidthSampling / 2 Dim HBorder As Int64 = CoverHeightSampling / 2 Dim backupdate As Date backupdate = Now ' WBorder = 0 WBorder = 0 ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\50058800whitesmoke.jpg") ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) ' GoTo skipfillfornow For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX skipfillfornow: ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\12001800whitesmoke.jpg") ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\72064800whitesmoke.jpg") ' ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() Do Until ComicBooks.EOF REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If CurrentPages = 120 * 180 - 1 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If Me.Text = "Start Time: " & BackupDate & " Current Comic Book: " & ComicPublisher.Fields("ComicPublisher").Value & " " & ComicBooks.Fields("ComicBookYear").Value & " " & ComicNames.Fields("ComicName").Value & " #" & ComicBooks.Fields("ComicBookNumber").Value & " Number of Comic Books Pages Processed: " & CurrentPages TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeightSampling) - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Next TY Next TX CurrentPages = CurrentPages + 1 If CurrentPages Mod 600 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 4 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\comicpanel\12001800whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight Then TempWPArea.Dispose() Exit Do End If End If End If ComicNames.Close() ComicPublisher.Close() TempWPArea.Dispose() For CPages = 1 To ComicBooks.Fields("ComicBookNumberOfPages").Value If CurrentPages = 120 * 180 - 1 Then LastCC = CurrentComic LastCp = CurrentPages ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "page" & CPages & ".jpg") End If For TX = 0 To Math.Floor(CoverWidth / CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeight / CoverHeightSampling) - 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidth / CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeight / CoverHeightSampling))), 1)) Next TY Next TX CurrentPages = CurrentPages + 1 If CurrentPages Mod 90 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 241 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\64800540whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + Math.Floor(CoverWidth / CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(1 * CoverWidth / CoverWidthSampling) - 1 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then TempWPArea.Dispose() Exit Do End If End If End If Next CPages ComicBooks.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic = 1657 Then CurrentComic = CurrentComic + 1 End If Loop ComicBooks.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome!") End Sub Public Sub makewallpaperallhandcraft() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 3600 Dim WPPhotoHeight As Integer = 3600 Dim CPages As Int32 ' Dim CurrentPages As Int64 = 0 Dim LastCp As Int64 = 0 WPArea = WPPhotoWidth * WPPhotoHeight REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicBooks.MoveFirst() ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = ((WPPhotoHeight) / 21) REM CoverHeightSampling = CoverHeight / ((WPPhotoHeight) / 1) REM CoverWidthSampling = CoverWidth / ((WPPhotoWidth - CoverWidth) / 120) CoverWidthSampling = ((WPPhotoWidth) / 31) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 0 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = CoverWidthSampling / 2 Dim HBorder As Int64 = CoverHeightSampling / 2 Dim backupdate As Date backupdate = Now ' WBorder = 0 WBorder = 0 HBorder = 0 CoverWidthSampling = 600 CoverHeightSampling = 600 ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\50058800whitesmoke.jpg") If Dir(ImagingRootDirectory & ImagingDirectory & "\qualitybigsquarebook\36003600whitesmoke.jpg") = "" Then ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) ' GoTo skipfillfornow For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX skipfillfornow: ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\qualitybigsquarebook\36003600whitesmoke.jpg") Else ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\qualitybigsquarebook\36003600whitesmoke.jpg") End If ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\72064800whitesmoke.jpg") ' ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) REM ComicBooks.Open("select * from [Comic Books] where ((ComicBookScanned=" & True & ") AND (ComicBookNumberOfPages=35)) ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooksUnique.Open("SELECT DISTINCTROW [Comic Names].ComicNameID FROM [Comic Names] INNER JOIN [Comic Books] ON [Comic Names].ComicNameID = [Comic Books].ComicBookName ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooksUnique.MoveFirst() Do Until ComicBooksUnique.EOF getnextcomic: ComicBooks.Open("select * from [Comic Books] where (ComicBookName=" & ComicBooksUnique.Fields("ComicNameID").Value & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() checkforpagecount: If ComicBooks.Fields("ComicBookNumberOfPages").Value <> 35 Then If ComicBooks.EOF = True Then ComicBooks.Close() ComicBooksUnique.MoveNext() GoTo getnextcomic Else ComicBooks.MoveNext() If ComicBooks.EOF = True Then ComicBooks.Close() ComicBooksUnique.MoveNext() GoTo getnextcomic End If GoTo checkforpagecount End If End If REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If CurrentPages = 120 * 180 - 1 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If Me.Text = "Start Time: " & backupdate & " Current Comic Book: " & ComicPublisher.Fields("ComicPublisher").Value & " " & ComicBooks.Fields("ComicBookYear").Value & " " & ComicNames.Fields("ComicName").Value & " #" & ComicBooks.Fields("ComicBookNumber").Value & " Number of Comic Books Pages Processed: " & CurrentPages REM CoverWidthSampling = Math.Floor(3600 / (ComicBooks.Fields("ComicBookNumberOfPages").Value + 1)) TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeightSampling) - 1 Select Case CurrentComic Mod 24 Case 0 To 23 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Case 6 To 11 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, colorseparation(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 0)) Case 12 To 17 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, colorseparation(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Case 18 To 23 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, colorseparation(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 2)) End Select Next TY Next TX CurrentPages = CurrentPages + 1 If CurrentPages Mod 600 = -20 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\comicpanel\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 4 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\comicpanel\12001800whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + Math.Floor(CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight Then TempWPArea.Dispose() Exit Do End If End If End If ComicNames.Close() ComicPublisher.Close() TempWPArea.Dispose() For CPages = 1 To ComicBooks.Fields("ComicBookNumberOfPages").Value If CPages = ComicBooks.Fields("ComicBookNumberOfPages").Value Then CoverWidthSampling = 3599 - WPWidthCount End If If CurrentPages = -111 Then LastCC = CurrentComic LastCp = CurrentPages ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "page" & CPages & ".jpg") End If For TX = 0 To Math.Floor(CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeightSampling) - 1 Select Case CurrentComic Mod 24 Case 0 To 23 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Case 6 To 11 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, colorseparation(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 0)) Case 12 To 17 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, colorseparation(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Case 18 To 23 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, colorseparation(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 2)) End Select Next TY Next TX CurrentPages = CurrentPages + 1 If CurrentPages Mod 90 = 9999 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 241 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\64800540whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = WPWidthCount + 600 If CPages Mod 6 = 5 Then WPWidthCount = 0 WPHeightCount = WPHeightCount + 600 End If GoTo sendevenmorechecksfornow If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(1 * CoverWidth / CoverWidthSampling) - 1 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then TempWPArea.Dispose() Exit Do End If End If sendevenmorechecksfornow: End If Next CPages ComicBooks.Close() ComicBooksUnique.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic Mod 1 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\qualitybigsquarebook\" & WPPhotoWidth & WPPhotoHeight & "comicpostcard" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) REM ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\bigsquarebook\" & WPPhotoWidth & WPPhotoHeight & "comicpostcard" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 241 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\qualitybigsquarebook\36003600whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 0 Else WPWidthCount = 0 WPHeightCount = WPHeightCount + 600 GoTo sendallchecksfornow If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(1 * CoverWidth / CoverWidthSampling) - 1 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then TempWPArea.Dispose() Exit Do End If End If sendallchecksfornow: End If If CurrentComic = 16579 Then CurrentComic = CurrentComic + 1 End If Loop ComicBooksUnique.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome!") End Sub Public Sub makewallpaperbar() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 18000 Dim WPPhotoHeight As Integer = 7200 Dim CPages As Int32 ' Dim CurrentPages As Int64 = 0 Dim LastCp As Int64 = 0 WPArea = WPPhotoWidth * WPPhotoHeight REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicBooks.MoveFirst() ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' CoverHeightSampling = CoverHeight / ((WPPhotoHeight - CoverHeight) / 90) REM CoverHeightSampling = CoverHeight / ((WPPhotoHeight) / 1) REM CoverWidthSampling = CoverWidth / ((WPPhotoWidth - CoverWidth) / 120) ' CoverWidthSampling = CoverWidth / ((WPPhotoWidth) / 1) CoverHeightSampling = 72 REM CoverHeightSampling = CoverHeight / ((WPPhotoHeight) / 1) REM CoverWidthSampling = CoverWidth / ((WPPhotoWidth - CoverWidth) / 120) CoverWidthSampling = 10 Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 1 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = CoverWidth / 2 Dim HBorder As Int64 = CoverHeight / 2 Dim backupdate As Date backupdate = Now WBorder = 0 HBorder = 0 ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\50058800whitesmoke.jpg") ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight, System.Drawing.Imaging.PixelFormat.Format24bppRgb) GoTo skipfillfornow For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX skipfillfornow: ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\50058800whitesmoke.jpg") ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\72064800whitesmoke.jpg") ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() Do Until ComicBooks.EOF REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If CurrentPages = 120 * 180 - 1 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If Me.Text = "Start Time: " & backupdate & " Current Comic Book: " & ComicPublisher.Fields("ComicPublisher").Value & " " & ComicBooks.Fields("ComicBookYear").Value & " " & ComicNames.Fields("ComicName").Value & " #" & ComicBooks.Fields("ComicBookNumber").Value & " Number of Comic Books Pages Processed: " & CurrentPages TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") ' For TX = 0 To Math.Floor(CoverWidth / CoverWidthSampling) - 1 'For TY = 0 To Math.Floor(CoverHeight / CoverHeightSampling) - 1 For TX = 0 To CoverWidthSampling - 1 For TY = 0 To CoverHeightSampling - 1 REM ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidth / CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeight / CoverHeightSampling))), 1)) ' ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / 500), Math.Floor(TY * (TempWPArea.Height - 1) / 700)), 1)) ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Next TY Next TX CurrentPages = CurrentPages + 1 If 1 Mod 90 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 1681 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\50058800whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 58800 - 700 Else WPHeightCount = WPHeightCount + CoverHeightSampling GoTo skipiffornow WPWidthCount = WPWidthCount + Math.Floor(CoverWidth / CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(1 * CoverWidth / CoverWidthSampling) - 1 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then TempWPArea.Dispose() Exit Do End If End If End If skipiffornow: ComicNames.Close() ComicPublisher.Close() TempWPArea.Dispose() For CPages = 1 To ComicBooks.Fields("ComicBookNumberOfPages").Value If 0 = 120 * 180 - 1 Then LastCC = CurrentComic LastCp = CurrentPages ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If Me.Text = "Start Time: " & backupdate & " Current Comic Book: " & ComicPublisher.Fields("ComicPublisher").Value & " " & ComicBooks.Fields("ComicBookYear").Value & " " & ComicNames.Fields("ComicName").Value & " #" & ComicBooks.Fields("ComicBookNumber").Value & " Number of Comic Books Pages Processed: " & CurrentPages & " Height Number " & WPHeightCount ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "page" & CPages & ".jpg") End If ' For TX = 0 To Math.Floor(CoverWidth / CoverWidthSampling) - 1 'For TY = 0 To Math.Floor(CoverHeight / CoverHeightSampling) - 1 'ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidth / CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeight / CoverHeightSampling))), 1)) For TX = 0 To CoverWidthSampling - 1 For TY = 0 To CoverHeightSampling - 1 REM ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidth / CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeight / CoverHeightSampling))), 1)) ' ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / 500), Math.Floor(TY * (TempWPArea.Height - 1) / 700)), 1)) ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeightSampling))), 1)) Next TY Next TX CurrentPages = CurrentPages + 1 ' If CurrentPages Mod 90 = 0 Then ' If 0 Mod 90 = 0 Then If CPages = ComicBooks.Fields("ComicBookNumberOfPages").Value Then ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\widestrip\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) ' CurrentWallpaper = CurrentWallpaper + 1 WPWidthCount = WPWidthCount + CoverWidthSampling WPHeightCount = 0 If WPWidthCount = WPPhotoWidth Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaperbar" & ".png", System.Drawing.Imaging.ImageFormat.Png) ' ComicWPScreen.Dispose() Exit Do ' WPHeightCount = 58800 - 700 End If Else WPHeightCount = WPHeightCount + CoverHeightSampling GoTo skipsecondiffornow WPWidthCount = WPWidthCount + Math.Floor(CoverWidth / CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(1 * CoverWidth / CoverWidthSampling) - 1 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then TempWPArea.Dispose() Exit Do End If End If End If skipsecondiffornow: Next CPages ComicBooks.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic = 1657 Then CurrentComic = CurrentComic + 1 End If Loop ComicBooks.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome!") End Sub Public Sub makewallpaperholeflag() Dim CoverHeight As Int64 = 950 Dim CoverWidth As Int64 = 600 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 7200 Dim WPPhotoHeight As Integer = 18000 Dim CPages As Int32 ' Dim CurrentPages As Int64 = 0 Dim LastCp As Int64 = 0 WPArea = WPPhotoWidth * WPPhotoHeight REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicBooks.MoveFirst() ' eachWPArea = WPArea / ComicBooks.RecordCount / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 ' eachWPArea = WPArea / (18 * 18) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = CoverHeight / ((WPPhotoHeight - CoverHeight) / 90) REM CoverHeightSampling = CoverHeight / ((WPPhotoHeight) / 1) REM CoverWidthSampling = CoverWidth / ((WPPhotoWidth - CoverWidth) / 120) CoverWidthSampling = CoverWidth / ((WPPhotoWidth) / 1) Dim DirectoryString As String Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 1 Dim LastCC As Int32 = 0 Dim CurrentWallpaper As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 18000 - 500 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = CoverWidth / 2 Dim HBorder As Int64 = CoverHeight / 2 Dim backupdate As Date backupdate = Now WBorder = 0 HBorder = 0 Dim wpwdelta As Int32 = 360 Dim wphdelta As Int32 = 500 Dim pushfactor As Int32 = 0 ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\50058800whitesmoke.jpg") ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX skipfillfornow: ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\golfflag\720018000whitesmoke.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\widestrip\72064800whitesmoke.jpg") ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") AND ((ComicBookNumberOfPages>38) AND (ComicBookNumberOfPages<52)) ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.MoveFirst() Do Until ComicBooks.EOF REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) wpwdelta = 0 wphdelta = -500 REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If CurrentPages = 120 * 180 - 1 Then LastCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If Me.Text = "Start Time: " & backupdate & " Current Comic Book: " & ComicPublisher.Fields("ComicPublisher").Value & " " & ComicBooks.Fields("ComicBookYear").Value & " " & ComicNames.Fields("ComicName").Value & " #" & ComicBooks.Fields("ComicBookNumber").Value & " Number of Comic Books Pages Processed: " & CurrentPages TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") ' For TX = 0 To Math.Floor(CoverWidth / CoverWidthSampling) - 1 'For TY = 0 To Math.Floor(CoverHeight / CoverHeightSampling) - 1 For TX = 0 To 359 For TY = 0 To 499 REM ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidth / CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeight / CoverHeightSampling))), 1)) ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / 360), Math.Floor(TY * (TempWPArea.Height - 1) / 500)), 1)) Next TY Next TX CurrentPages = CurrentPages + 1 If 1 Mod 90 = 0 Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\golfflag\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\golfflag\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 1681 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\golfflag\720018000whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 18000 - 500 Else WPHeightCount = WPHeightCount + wphdelta GoTo skipiffornow1 WPWidthCount = WPWidthCount + Math.Floor(CoverWidth / CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(1 * CoverWidth / CoverWidthSampling) - 1 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then TempWPArea.Dispose() Exit Do End If End If End If skipiffornow1: ComicNames.Close() ComicPublisher.Close() TempWPArea.Dispose() Select Case ComicBooks.Fields("ComicBookNumberOfPages").Value Case Is < 46 pushfactor = ComicBooks.Fields("ComicBookNumberOfPages").Value - 12 Case Else pushfactor = ComicBooks.Fields("ComicBookNumberOfPages").Value - 18 End Select For CPages = 1 To ComicBooks.Fields("ComicBookNumberOfPages").Value If 0 = 120 * 180 - 1 Then LastCC = CurrentComic LastCp = CurrentPages ComicBooks.MoveFirst() ComicBooks.Move(1657, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.MoveFirst() ComicBooks.Move(LastCC, 1) ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") Else ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicNames.Close() ComicPublisher.Close() TempWPArea = Image.FromFile(DirectoryString & "page" & CPages & ".jpg") End If ' For TX = 0 To Math.Floor(CoverWidth / CoverWidthSampling) - 1 'For TY = 0 To Math.Floor(CoverHeight / CoverHeightSampling) - 1 'ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidth / CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeight / CoverHeightSampling))), 1)) For TX = 0 To 359 For TY = 0 To 499 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / 360), Math.Floor(TY * (TempWPArea.Height - 1) / 500)), 1)) Next TY Next TX CurrentPages = CurrentPages + 1 ' If CurrentPages Mod 90 = 0 Then ' If 0 Mod 90 = 0 Then If CPages = ComicBooks.Fields("ComicBookNumberOfPages").Value Then ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\golfflag\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & "golfflag.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\golfflag\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & "golfflag.gif", System.Drawing.Imaging.ImageFormat.Gif) CurrentWallpaper = CurrentWallpaper + 1 If CurrentWallpaper = 1681 Then Exit Do ComicWPScreen.Dispose() ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\golfflag\720018000whitesmoke.jpg") WPWidthCount = 0 WPHeightCount = 18000 - 500 Else If ComicBooks.Fields("ComicBookNumberOfPages").Value < 46 Then Select Case CPages Case pushfactor + 4 wpwdelta = 360 wphdelta = 0 Case pushfactor + 8 wpwdelta = 0 wphdelta = -500 Case pushfactor + 12 wpwdelta = -360 wphdelta = 0 End Select Else Select Case CPages Case pushfactor + 6 wpwdelta = 360 wphdelta = 0 Case pushfactor + 12 wpwdelta = 0 wphdelta = -500 Case pushfactor + 18 wpwdelta = -360 wphdelta = 0 End Select End If WPWidthCount = WPWidthCount + wpwdelta WPHeightCount = WPHeightCount + wphdelta gotoskipsecondiffornow1: WPWidthCount = WPWidthCount + Math.Floor(CoverWidth / CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(1 * CoverWidth / CoverWidthSampling) - 1 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount - 1 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then TempWPArea.Dispose() Exit Do End If End If End If skipsecondiffornow1: Next CPages donextcomic1: ComicBooks.MoveNext() CurrentComic = CurrentComic + 1 If CurrentComic = 1657 Then CurrentComic = CurrentComic + 1 End If Loop ComicBooks.Close() ComicWPScreen.Dispose() ' ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "comicwallpaper" & CurrentWallpaper & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) MsgBox("Welcome!") End Sub Public Sub makewallpapercalendaragriculture() Dim CoverHeight As Int64 = 168 Dim CoverWidth As Int64 = 400 Dim CoverHeightSampling As Double Dim CoverWidthSampling As Double Dim ComicWPScreen As System.Drawing.Bitmap Dim TempWPArea As System.Drawing.Bitmap Dim WPArea As Int64 Dim eachWPArea As Int64 Dim WPPhotoWidth As Integer = 7200 Dim WPPhotoHeight As Integer = 18000 ' Dim PhotoMyAccess As New ADODB.Connection ' PhotoMyAccess.Mode = ADODB.ConnectModeEnum.adModeReadWrite ' PhotoMyAccess.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=z:\photos\photoscollection.mdb;", "Admin", "") ' Dim PhotoMyBooks As New ADODB.Recordset ' Dim PhotoMyNames As New ADODB.Recordset ' Dim PhotoMyPublisher As New ADODB.Recordset WPArea = WPPhotoWidth * WPPhotoHeight ' PhotoMyBooks.Open("select * from [Comic Books];", PhotoMyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicBooks.Open("select * from [Comic Books] where (ComicBookScanned=" & True & ") ORDER BY [Comic Books].ComicBookYear, [Comic Books].ComicBookNumber, [Comic Books].ComicBookPublisher, [Comic Books].ComicBookName;", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' PhotoMyBooks.MoveFirst() ' PhotoMyBooks.Move(6, 1) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & PhotoMyBooks.Fields("ComicBookName").Value & ";", PhotoMyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & PhotoMyBooks.Fields("ComicBookPublisher").Value & ";", PhotoMyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) Dim DirectoryString As String ' If PhotoMyBooks.Fields("ComicBookAnnual").Value = False Then ' DirectoryString = "z:\photos\" & CStr(PhotoMyBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(PhotoMyBooks.Fields("ComicBookNumber").Value) ' Else ' DirectoryString = "z:\photos\" & CStr(PhotoMyBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(PhotoMyBooks.Fields("ComicBookNumber").Value) ' End If ' ComicPublisher.Close() ' ComicNames.Close() REM ComicBooks.Open("select * from [Comic Books] ORDER by [ComicID];", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicBooks.MoveFirst() eachWPArea = WPArea / (21 * 28) / 12 ' CoverHeightSampling = CoverHeight / Math.Sqrt(eachWPArea) * 4 ' CoverWidthSampling = CoverWidth / Math.Sqrt(eachWPArea) * 3 CoverHeightSampling = CoverHeight / ((WPPhotoHeight - 3 * CoverHeight) / 25) CoverWidthSampling = CoverWidth / ((WPPhotoWidth - CoverWidth) / 16) Dim EachCoverWidth As Int32 = 0 Dim EachCoverHeight As Int32 = 0 EachCoverHeight = ((WPPhotoHeight - 3 * CoverHeight) / 25) EachCoverWidth = ((WPPhotoWidth - CoverWidth) / 16) Dim TX As Int64 Dim TY As Int64 Dim CurrentComic As Int32 = 1 Dim WPWidthCount As Int64 = 0 Dim WPHeightCount As Int64 = 0 Dim LCC As Int32 = 1 ' Dim WBorder As Int64 = (WPPhotoWidth Mod CInt(Math.Sqrt(eachWPArea) * 3)) / 2 ' Dim HBorder As Int64 = (WPPhotoHeight Mod CInt(Math.Sqrt(eachWPArea) * 4)) / 2 Dim WBorder As Int64 = CoverWidth / 2 Dim HBorder As Int64 = 5 * CoverHeight / 2 WPWidthCount = WBorder + EachCoverWidth WPHeightCount = HBorder + EachCoverHeight Dim CurrentPhoto As Int32 = 0 ' ComicWPScreen = Drawing.Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\720018000whitesmoke.jpg") ComicWPScreen = New Drawing.Bitmap(WPPhotoWidth, WPPhotoHeight) For TX = 0 To WPPhotoWidth - 1 For TY = 0 To WPPhotoHeight - 1 ComicWPScreen.SetPixel(TX, TY, Color.WhiteSmoke) Next TY Next TX Dim A As Int32 Dim B As Int32 Dim TimeColor As System.Drawing.Color TempWPArea = Image.FromFile(ImagingRootDirectory & ImagingDirectory & "\farming\ag.jpg") For A = 2 To 16 For B = 2 To 25 For TX = 0 To EachCoverWidth - 1 For TY = 0 To EachCoverHeight - 1 If TX < 6 Or TX > EachCoverWidth - 6 Or TY < 6 Or TY > EachCoverHeight - 6 Then Else If TY < EachCoverHeight / 2 Then TimeColor = System.Drawing.Color.FromArgb(Math.Floor((TY + TX) / (EachCoverHeight + EachCoverWidth) * 255), Math.Floor((TY + TX) / (EachCoverHeight + EachCoverWidth) * 255), Math.Floor((TY + TX) / (EachCoverHeight + EachCoverWidth) * 255)) ComicWPScreen.SetPixel(TX + WPWidthCount, TY + WPHeightCount, TimeColor) Else ComicWPScreen.SetPixel(TX + WPWidthCount, TY + WPHeightCount, TempWPArea.GetPixel(CInt(Math.Floor(TX / EachCoverWidth * TempWPArea.Width)), CInt(Math.Floor((TY - Math.Floor(EachCoverHeight / 2)) / Math.Floor(EachCoverHeight - Math.Floor(EachCoverHeight / 2)) * TempWPArea.Height)))) End If End If Next TY Next TX WPHeightCount = WPHeightCount + EachCoverHeight - 1 Next B WPHeightCount = HBorder + EachCoverHeight WPWidthCount = WPWidthCount + EachCoverWidth - 1 Next A ComicWPScreen.Save("Z:\comics\farming\" & WPPhotoWidth & WPPhotoHeight & "agcroprotationfarmingsign.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ComicWPScreen.Save("Z:\comics\farming\" & WPPhotoWidth & WPPhotoHeight & "agcroprotationfarmingsign.gif", System.Drawing.Imaging.ImageFormat.Gif) ComicWPScreen.Save("Z:\comics\farming\" & WPPhotoWidth & WPPhotoHeight & "agcroprotationfarmingsign.bmp", System.Drawing.Imaging.ImageFormat.Bmp) GoTo endsubfornow Do Until ComicBooks.EOF ' Do Until PhotoMyBooks.EOF If CurrentComic = 14 Then LCC = CurrentComic ComicBooks.MoveFirst() ComicBooks.Move(1634, 1) ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ' If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If ComicBooks.Move(LCC, 1) Else ' GoTo doborder ComicNames.Open("select * from [Comic Names] where ComicNameID=" & ComicBooks.Fields("ComicBookName").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) ComicPublisher.Open("select * from [ComicPublisher] where ComicPubID=" & ComicBooks.Fields("ComicBookPublisher").Value & ";", MyAccess, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic) If ComicBooks.Fields("ComicBookAnnual").Value = False Then DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\" & CStr(ComicBooks.Fields("ComicBookNumber").Value) Else DirectoryString = ImagingRootDirectory & ImagingDirectory & "\" & CStr(ComicBooks.Fields("ComicBookyear").Value) & "\" & UCase(CStr(ComicPublisher.Fields("ComicPublisher").Value)) & "\" & UCase(CStr(ComicNames.Fields("ComicName").Value)) & "\annual" & CStr(ComicBooks.Fields("ComicBookNumber").Value) End If End If ' GoTo doborder ComicNames.Close() ComicPublisher.Close() doborder: ' If CurrentPhoto = 0 Then TempWPArea = Image.FromFile(DirectoryString & "cover.jpg") 'Else ' TempWPArea = Image.FromFile(DirectoryString & "page" & CurrentPhoto & ".jpg") ' End If ' MsgBox(CoverWidthSampling & " " & CoverHeightSampling) For TX = 0 To Math.Floor(CoverWidth / CoverWidthSampling) - 1 For TY = 0 To Math.Floor(CoverHeight / CoverHeightSampling) - 1 If CurrentComic = 14 Then ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(TempWPArea.GetPixel(Math.Floor(TX * (TempWPArea.Width - 1) / Math.Floor(CoverWidth / CoverWidthSampling)), Math.Floor(TY * (TempWPArea.Height - 1) / Math.Floor(CoverHeight / CoverHeightSampling))), 1)) End If If TX <= 4 Or TX >= CoverWidth / CoverWidthSampling - 5 Or TY <= 4 Or TY >= CoverHeight / CoverHeightSampling - 5 Then Select Case CurrentComic Mod 7 Case 1 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(System.Drawing.Color.FromArgb(36, 36, 0), 0.5)) Case 2 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(System.Drawing.Color.FromArgb(72, 72, 0), 0.5)) Case 3 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(System.Drawing.Color.FromArgb(108, 108, 0), 0.5)) Case 4 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(System.Drawing.Color.FromArgb(144, 144, 0), 0.5)) Case 5 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(System.Drawing.Color.FromArgb(180, 180, 0), 0.5)) Case 6 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(System.Drawing.Color.FromArgb(216, 216, 0), 0.5)) Case 0 ComicWPScreen.SetPixel(WBorder + TX + WPWidthCount, HBorder + TY + WPHeightCount, argbbrightness(System.Drawing.Color.FromArgb(252, 252, 0), 0.5)) End Select End If Next TY Next TX If CurrentComic = 21 * 28 Then Exit Do WPWidthCount = WPWidthCount + Math.Floor(CoverWidth / CoverWidthSampling) If WPWidthCount + 3 >= WPPhotoWidth - Math.Floor(WBorder) * 2 - (Math.Floor(21 * CoverWidth / CoverWidthSampling) - 21 * Math.Floor(CoverWidth / CoverWidthSampling)) Then WPWidthCount = 0 WPHeightCount = WPHeightCount + Math.Floor(CoverHeight / CoverHeightSampling) If WPHeightCount + 3 >= WPPhotoHeight - Math.Floor(HBorder) * 2 Then TempWPArea.Dispose() Exit Do End If End If TempWPArea.Dispose() ComicBooks.MoveNext() CurrentComic = CurrentComic + 1 ' If CurrentComic Mod 7 = 0 Then ' CurrentPhoto = CurrentPhoto + 1 ' End If 'If CurrentPhoto = 24 Then CurrentPhoto = 0 Loop ' PhotoMyBooks.Close() ' PhotoMyAccess.Close() ComicBooks.Close() Dim XM As Int32 Dim XMD As Int32 Dim StartDay As Date Dim CalendarYear As Int32 = 2010 StartDay = "01/01/" & CalendarYear Dim XMDayofWeek As String Dim MonthDate As Date ComicWPScreen.Save(ImagingRootDirectory & ImagingDirectory & "\" & WPPhotoWidth & WPPhotoHeight & "plainbordercomiccalendar.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) XMDayofWeek = StartDay.DayOfWeek XM = 1 Select Case CInt(Mid(CStr(CalendarYear), 1, 1)) Case 2 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 8.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 8.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 8.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 8.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 8.5 + TX, TY, Color.Blue) Next TX End Select Next TY End Select Select Case CInt(Mid(CStr(CalendarYear), 2, 1)) Case 0 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, TY, Color.Blue) Next TX End Select Next TY End Select Select Case CInt(Mid(CStr(CalendarYear), 3, 1)) Case 1 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) / 2 - 5 To Math.Floor(CoverWidth / CoverWidthSampling) / 2 + 5 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Next TY Case 2 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 3 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 4 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 5 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 6 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 7 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 8 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 9 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 0 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, TY, Color.Blue) Next TX End Select Next TY End Select Select Case CInt(Mid(CStr(CalendarYear), 4, 1)) Case 1 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) / 2 - 5 To Math.Floor(CoverWidth / CoverWidthSampling) / 2 + 5 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Next TY Case 2 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 3 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 4 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 5 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 6 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 7 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 8 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 9 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX End Select Next TY Case 0 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 11.5 + TX, TY, Color.Blue) Next TX End Select Next TY End Select Dim DaysInMonth As Int32 = 31 Dim DateLabelText As Int32 = Math.Floor(CoverWidth / (CoverWidthSampling * 10)) For XM = 1 To 12 MonthDate = XM & "/01/" & CalendarYear Select Case XM Case 1 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) / 2 - 5 To Math.Floor(CoverWidth / CoverWidthSampling) / 2 + 5 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY, Color.Red) Next TX Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY, Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY, Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY, Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY, Color.Red) Next TX End Select Next TY DaysInMonth = 31 Case 2 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY, Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY, Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY, Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY, Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY, Color.Red) Next TX End Select Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY, Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY, Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY, Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY, Color.Red) Next TX End Select Next TY If Date.IsLeapYear(CalendarYear) = True Then DaysInMonth = 29 Else DaysInMonth = 28 End If Case 3 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY, Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY, Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY, Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY, Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY, Color.Red) Next TX End Select Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY, Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY, Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY, Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY, Color.Red) Next TX End Select Next TY DaysInMonth = 31 Case 4 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY DaysInMonth = 30 Case 5 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY DaysInMonth = 31 Case 6 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY + 7 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY DaysInMonth = 30 Case 7 DaysInMonth = 31 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY Case 8 DaysInMonth = 31 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY Case 9 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY + 14 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY DaysInMonth = 30 Case 10 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 3.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) / 2 - 5 To Math.Floor(CoverWidth / CoverWidthSampling) / 2 + 5 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 2.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Next TY DaysInMonth = 31 Case 11 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) / 2 - 5 To Math.Floor(CoverWidth / CoverWidthSampling) / 2 + 5 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 10.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) / 2 - 5 To Math.Floor(CoverWidth / CoverWidthSampling) / 2 + 5 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 9.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Next TY DaysInMonth = 30 Case 12 For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 Select Case TY Case 25 To 35 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case 35 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 For TX = Math.Floor(CoverWidth / CoverWidthSampling) - 35 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 - 5 To Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) / 2 + 5 To Math.Floor(CoverHeight / CoverHeightSampling) - 35 For TX = 25 To 35 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Case Math.Floor(CoverHeight / CoverHeightSampling) - 35 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = 25 To Math.Floor(CoverWidth / CoverWidthSampling) - 25 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 17.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX End Select Next TY For TY = 25 To Math.Floor(CoverHeight / CoverHeightSampling) - 25 For TX = Math.Floor(CoverWidth / CoverWidthSampling) / 2 - 5 To Math.Floor(CoverWidth / CoverWidthSampling) / 2 + 5 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) * 16.5 + TX, HBorder + TY + 21 * Math.Floor(CoverHeight / CoverHeightSampling), Color.Red) Next TX Next TY DaysInMonth = 31 End Select For XMD = 1 To DaysInMonth StartDay = XM & "/" & XMD & "/" & CalendarYear Select Case StartDay.DayOfWeek Case DayOfWeek.Sunday Select Case XMD Case 1 For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 2 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 3 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 4 For TY = 0 To DateLabelText - 1 Select Case TY Case 0 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 5 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 6 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 7 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 8 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 9 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 18 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 19 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 28 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 29 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 10 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 20 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 30 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 11 MonthDate = XM & "/01/" & CalendarYear For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 12 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 13 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + +Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 14 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 15 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + +Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 16 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 17 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 21 MonthDate = XM & "/01/" & CalendarYear For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 22 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 23 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 24 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 25 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 26 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 27 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 31 MonthDate = XM & "/01/" & CalendarYear For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + (CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY End Select Case DayOfWeek.Monday Select Case XMD Case 1 For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 2 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 3 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 4 For TY = 0 To DateLabelText - 1 Select Case TY Case 0 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 5 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 6 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 7 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 16 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 17 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 26 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 27 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 8 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 9 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 18 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 19 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 28 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 29 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 10 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 20 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 30 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 11 MonthDate = XM & "/01/" & CalendarYear For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 12 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 13 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 14 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 15 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 21 MonthDate = XM & "/01/" & CalendarYear For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 22 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 23 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 24 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 25 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 31 MonthDate = XM & "/01/" & CalendarYear For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 2 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 5 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY End Select Case DayOfWeek.Tuesday Select Case XMD Case 1 For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 2 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 3 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 4 For TY = 0 To DateLabelText - 1 Select Case TY Case 0 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 5 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 6 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 7 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 16 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 17 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 26 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 27 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 8 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 9 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 18 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 19 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 28 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 29 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 10 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 20 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 30 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 11 MonthDate = XM & "/01/" & CalendarYear For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 12 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 13 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 14 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 15 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 21 MonthDate = XM & "/01/" & CalendarYear For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 22 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 23 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 24 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 3 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 25 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 31 MonthDate = XM & "/01/" & CalendarYear For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 3 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY End Select Case DayOfWeek.Wednesday Select Case XMD Case 1 For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 2 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + +((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor(Math.Floor((XM - 1) / 3) * CoverHeight / CoverHeightSampling * 7) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 3 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 4 For TY = 0 To DateLabelText - 1 Select Case TY Case 0 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 5 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 6 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 7 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 16 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 17 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TX = DateLabelText - 3 To DateLabelText - 1 For TY = 0 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 2 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TY Next TX Case 26 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 27 MonthDate = XM & "/01/" & CalendarYear For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 3 * DateLabelText - 10 + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + 4 * Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 8 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 - 1 To DateLabelText / 2 + 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText / 2 + 1 To DateLabelText - 3 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case DateLabelText - 2 To DateLabelText - 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX End Select Next TY Case 9 For TY = 0 To DateLabelText - 1 Select Case TY Case 0, 1 For TX = 2 To DateLabelText - 1 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX Case 2 To DateLabelText / 2 - 1 For TX = 2 To 4 ComicWPScreen.SetPixel(WBorder + 4 * Math.Floor(CoverWidth / CoverWidthSampling) - 2 * DateLabelText + TX + ((XM - 1) Mod 3) * 7 * Math.Floor(CoverWidth / CoverWidthSampling), HBorder + DateLabelText + TY + Math.Floor((XM - 1) / 3) * Math.Floor(CoverHeight / CoverHeightSampling) * 7 + Math.Floor(CoverHeight / CoverHeightSampling) + Math.Floor(CoverHeight / CoverHeightSampling), System.Drawing.Color.FromArgb(0, 255, 0)) Next TX For TX = DateLabelText - 3 To DateLabelText - 1
" & vbCrLf) WebIO.Write("prepare for mirthful wonderment" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("
" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("" & vbCrLf) WebIO.Write("