module1.bas

VB写的魔方游戏

Attribute VB_Name = "Module1"
Option Explicit

Public Direction As Integer

Public Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "User32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Type POINTAPI
    X As Long
    y As Long
End Type

Public Const LWA_COLORKEY As Integer = &H1
Public Const LWA_ALPHA As Integer = &H2
Public Const GWL_EXSTYLE As Integer = (-20)
Public Const WS_EX_LAYERED As Long = &H80000