by Bobby magee (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 28th April 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Its the matrix code where you see all those numbers.
API Declarations
2)You might want to change the font to fixedsys and the forecolor to green
3)After that you will need a timer, also set the interval for 1000
VBcoders
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
Dim a As Integer
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Const HWND_TOP = 0
Const SWP_SHOWWINDOW = &H40
'Wanna quit early? Press any key and its all gone.
Private Sub Form_KeyPress(KeyAscii As Integer)
'Reincarnate the cursor
ShowCursor (True)
End
End Sub
Private Sub Form_Load()
Dim cx As Long
Dim cy As Long
Dim RetVal As Long
' Determine if screen is already maximized.
If Me.WindowState = vbMaximized Then
' Set window to normal size
Me.WindowState = vbNormal
End If ' Get full screen width.
cx = GetSystemMetrics(SM_CXSCREEN) ' Get full screen height.
cy = GetSystemMetrics(SM_CYSCREEN)
' Call API to set new size of window.
RetVal = SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, cx, cy, SWP_SHOWWINDOW)
'Murder the cursor
ShowCursor (False)
End Sub
Private Sub Timer1_Timer()
'Make the time between each letter printed random.
Randomize
Timer1.Interval = Int((1 * Rnd) + 30)
'The text, this is editable to whatever you wish.
smarquee = "2314908213490812349012349085676701303490579815627345896034561075634785901356714357896325234925789078235239715489"
'Take one more letter each time and put it on the screen
a = a + 1
Label1.Caption = Left$(smarquee, a)
Label2.Caption = Left$(smarquee, a)
Label3.Caption = Left$(smarquee, a)
Label4.Caption = Left$(smarquee, a)
Label5.Caption = Left$(smarquee, a)
Label6.Caption = Left$(smarquee, a)
Label7.Caption = Left$(smarquee, a)
Label8.Caption = Left$(smarquee, a)
Label9.Caption = Left$(smarquee, a)
Label10.Caption = Left$(smarquee, a)
Label11.Caption = Left$(smarquee, a)
Label12.Caption = Left$(smarquee, a)
Label13.Caption = Left$(smarquee, a)
Label14.Caption = Left$(smarquee, a)
Label15.Caption = Left$(smarquee, a)
Label16.Caption = Left$(smarquee, a)
Label17.Caption = Left$(smarquee, a)
Label18.Caption = Left$(smarquee, a)
Label19.Caption = Left$(smarquee, a)
Label20.Caption = Left$(smarquee, a)
Label21.Caption = Left$(smarquee, a)
Label22.Caption = Left$(smarquee, a)
Label23.Caption = Left$(smarquee, a)
Label24.Caption = Left$(smarquee, a)
Label25.Caption = Left$(smarquee, a)
Label26.Caption = Left$(smarquee, a)
Label27.Caption = Left$(smarquee, a)
Label28.Caption = Left$(smarquee, a)
Label29.Caption = Left$(smarquee, a)
Label30.Caption = Left$(smarquee, a)
Label31.Caption = Left$(smarquee, a)
Label32.Caption = Left$(smarquee, a)
Label33.Caption = Left$(smarquee, a)
Label34.Caption = Left$(smarquee, a)
Label35.Caption = Left$(smarquee, a)
Label36.Caption = Left$(smarquee, a)
'If it is a few seconds after the whole text is printed,
If a > Len(smarquee) + 3 Then
'Then reincarnate the cursor
ShowCursor (True)
'and kill my app
End
End If
End Sub