www.pudn.com > On_Screen_Ping_Pong.zip > Module1.bas

Attribute VB_Name = "Module1" 
'    ======================================= 
'            On-Screen Ping Pong 
'    ======================================= 
' 
'    This is an two player ping-pong. Play 
'    ping pong among all other windows 
'    on your system. Use [A]-[Z] to control 
'    left player's bar, and [']-[/] to control 
'    right player's bar. 
' 
'    Visit my Homepage: 
'    http://www.geocities.com/emu8086/vb/ 
' 
' 
'    Last Update: Saturday, July 20, 2002 
' 
' 
'    Copyright 2002 Alexander Popov Emulation Soft. 
'               All rights reserved. 
'        http://www.geocities.com/emu8086/ 
 
Option Explicit 
 
Public Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long 
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long 
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long 
 
Public Const SW_SHOWDEFAULT = 10 
 
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long