Credits

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Command1.Enabled = False
OpenCurtain
Scroll "http://vbT32.cjb.net:", vbRed, 11, False
Scroll "Visual Basic Developers codeBook" & vbCrLf & "2000" & vbCrLf & "By M.Piras" & vbCrLf & vbCrLf & "F.Sardi", vbGreen, 10, False
Scroll "Down Load NOW !", vbMagenta, 12, False
Scroll "THE END", vbWhite, 8, True
closeCurtain
Command1.Enabled = True

End Sub

Sub OpenCurtain()
Do Until Label4.Left >= Picture1.Width
Label4.Left = Label4.Left + 30
Label2.Left = Label2.Left - 30
DoEvents
Sleep 20
Loop

End Sub


Private Sub Scroll(Text As String, Color As ColorConstants, FontSize As Long, Underline As Boolean)

Label1.Top = Picture1.Height
Label1.ForeColor = Color
Label1.FontSize = FontSize
Label1.FontUnderline = Underline
Label1 = Text

Do Until Label1.Top <= (Picture1.Height - Label1.Height) / 2
DoEvents
Sleep 30
Label1.Top = Label1.Top - 15
Loop

DoEvents
Sleep 2000

Do Until Label1.Top < -Label1.Height
DoEvents
Label1.Top = Label1.Top - 15
Sleep 30
Loop

End Sub

Sub closeCurtain()
Do Until Label2.Left >= 0
Label4.Left = Label4.Left - 30
Label2.Left = Label2.Left + 30
DoEvents
Sleep 20
Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)

End
End Sub