by LCSBSSRHXXX (11 Submissions)
Category: Jokes/Humor
Compatability: VB Script
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (3 Votes)
this loads elipses with widths and hights from 0 to 20 where ever your mouse moves, the only funny thing about this is it loads the elipses on anything, because it uses GetCursorPos, Ellipse, and GetWindowDC API.
very simple and easy to understand.
enjoi!
-LCSBSSRHXXX
API DeclarationsPrivate Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long