• Home
 · 
• Miscellaneous
 · 
• Its the matrix code where you see all those numbers.

Its the matrix code where you see all those numbers.

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




Rate Its the matrix code where you see all those numbers.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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