Partial Class Splash_Screen Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try 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. Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Splash_Screen)) Me.Label1 = New System.Windows.Forms.Label() Me.LoadStatus = New System.Windows.Forms.Label() Me.ProgressBar1 = New System.Windows.Forms.ProgressBar() Me.CloseButton = New System.Windows.Forms.Button() Me.ShowSplashTimer = New System.Windows.Forms.Timer(Me.components) Me.FolderPicker = New System.Windows.Forms.FolderBrowserDialog() Me.PictureBox1 = New System.Windows.Forms.PictureBox() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(98, 282) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(190, 32) Me.Label1.TabIndex = 1 Me.Label1.Text = "Notepad Ultra" ' 'LoadStatus ' Me.LoadStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LoadStatus.Location = New System.Drawing.Point(21, 314) Me.LoadStatus.Name = "LoadStatus" Me.LoadStatus.Size = New System.Drawing.Size(345, 20) Me.LoadStatus.TabIndex = 1 Me.LoadStatus.Text = "Checking base directory..." Me.LoadStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'ProgressBar1 ' Me.ProgressBar1.Location = New System.Drawing.Point(-5, 337) Me.ProgressBar1.MarqueeAnimationSpeed = 1 Me.ProgressBar1.Name = "ProgressBar1" Me.ProgressBar1.Size = New System.Drawing.Size(399, 40) Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee Me.ProgressBar1.TabIndex = 2 ' 'CloseButton ' Me.CloseButton.BackColor = System.Drawing.SystemColors.Control Me.CloseButton.FlatStyle = System.Windows.Forms.FlatStyle.System Me.CloseButton.ForeColor = System.Drawing.Color.Black Me.CloseButton.Location = New System.Drawing.Point(338, -1) Me.CloseButton.Name = "CloseButton" Me.CloseButton.Size = New System.Drawing.Size(50, 25) Me.CloseButton.TabIndex = 3 Me.CloseButton.Text = "X" Me.CloseButton.UseVisualStyleBackColor = False ' 'ShowSplashTimer ' Me.ShowSplashTimer.Interval = 1 ' 'PictureBox1 ' Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.PictureBox1.Location = New System.Drawing.Point(65, 21) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(256, 256) Me.PictureBox1.TabIndex = 0 Me.PictureBox1.TabStop = False ' 'Splash_Screen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(386, 372) Me.Controls.Add(Me.CloseButton) Me.Controls.Add(Me.ProgressBar1) Me.Controls.Add(Me.LoadStatus) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.PictureBox1) Me.Cursor = System.Windows.Forms.Cursors.AppStarting Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Name = "Splash_Screen" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Notepad Ultra is now loading!" Me.TopMost = True CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents PictureBox1 As PictureBox Friend WithEvents Label1 As Label Friend WithEvents LoadStatus As Label Friend WithEvents ProgressBar1 As ProgressBar Friend WithEvents CloseButton As Button Friend WithEvents ShowSplashTimer As Timer Friend WithEvents FolderPicker As FolderBrowserDialog End Class