LOGIN SCREEN WITH EFFECTS FOR vB 2010

add two forms to your progect
in first form1
go to properites list and
set autosizemode as GrowAndShrink
set startposition as centrescreen
set controlbox as false
back colore as Red

add picturebox "Gif Pictures" as Centre screen
go to properites and set visible as false

add timer1
set interval as 100

add lable1 "text as " Empty       "
go to properites ANDSET
visible as false

DOUBLE CLICK ON FORM1
THEN COPY AND PASTE THIS CODE

--------------------------------------

Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        PictureBox1.Show()
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            Form2.Show()
            Me.Hide()
        End If


        If ProgressBar1.Value = 90 Then
            Label1.Visible = True
            Label1.Text = "Damn you"

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()

    End Sub
End Class
--------------------------------


THANX
TOMJERRY741@YAHOO.COM
FROM eGYPT- lUXOR cITY