Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Namespace WindowsApplication31
'/ <summary>
'/ Summary description for SplashScreen.
'/ </summary>
Public Class SplashScreen
Inherits System.Windows.Forms.Form
Private WithEvents timer1 As System.Windows.Forms.Timer
Private prgbar As System.Windows.Forms.ProgressBar
Private WithEvents label1 As System.Windows.Forms.Label
Private components As System.ComponentModel.IContainer
Public Sub New()
InitializeComponent()
timer1.Start()
End Sub 'New
'/ <summary>
'/ Clean up any resources being used.
'/ </summary>
Protected Overrides Sub Dispose(disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub 'Dispose
#Region "Windows Form Designer generated code"
'/ <summary>
'/ Required method for Designer support - do not modify
'/ the contents of this method with the code editor.
'/ </summary>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As New System.Resources.ResourceManager(GetType(SplashScreen))
Me.timer1 = New System.Windows.Forms.Timer(Me.components)
Me.prgbar = New System.Windows.Forms.ProgressBar()
Me.label1 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
' timer1
'
Me.timer1.Interval = 700
'
' prgbar
'
Me.prgbar.Location = New System.Drawing.Point(64, 224)
Me.prgbar.Name = "prgbar"
Me.prgbar.Size = New System.Drawing.Size(168, 16)
Me.prgbar.TabIndex = 1
'
' label1
'
Me.label1.BackColor = System.Drawing.Color.Transparent
Me.label1.Font = New System.Drawing.Font("Comic Sans MS", 18F, CType(System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic, System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, System.Byte))
Me.label1.ForeColor = System.Drawing.Color.Lime
Me.label1.Location = New System.Drawing.Point(48, 216)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(360, 32)
Me.label1.TabIndex = 2
'
' SplashScreen
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
Me.ClientSize = New System.Drawing.Size(392, 256)
Me.Controls.Add(label1)
Me.Controls.Add(prgbar)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "SplashScreen"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.ResumeLayout(False)
End Sub 'InitializeComponent
#End Region
Private Sub button1_Click(sender As Object, e As System.EventArgs)
End Sub 'button1_Click
Private Sub button1_Click_1(sender As Object, e As System.EventArgs)
Close()
End Sub 'button1_Click_1
Private Sub timer1_Tick(sender As Object, e As System.EventArgs) Handles timer1.Tick
prgbar.Value += 10
If prgbar.Value = 10 Then
label1.Text = " satana ascii maker 1.2"
End If
If prgbar.Value = 20 Then
label1.Text = "SAtana ascii maker 1.2"
End If
If prgbar.Value = 30 Then
label1.Text = "saTAna ascii maker 1.2"
End If
If prgbar.Value = 40 Then
label1.Text = "sataNA ascii maker 1.2"
End If
If prgbar.Value = 50 Then
label1.Text = "satana ASCii maker 1.2"
End If
If prgbar.Value = 60 Then
label1.Text = "satana ascII maker 1.2"
End If
If prgbar.Value = 70 Then
label1.Text = "satana ascii MAker 1.2"
End If
If prgbar.Value = 80 Then
label1.Text = "satana ascii maKER 1.2"
End If
If prgbar.Value = 90 Then
label1.Text = " M|<R 1.2"
End If
If prgbar.Value = 100 Then
System.Threading.Thread.Sleep(400)
Close()
timer1.Stop()
End If
End Sub 'timer1_Tick
Private Sub label2_Click(sender As Object, e As System.EventArgs)
End Sub 'label2_Click
Private Sub label1_Click(sender As Object, e As System.EventArgs) Handles label1.Click
End Sub 'label1_Click
Private Sub SplashScreen_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
End Sub 'SplashScreen_Load
End Class 'SplashScreen
End Namespace 'WindowsApplication31