Necesito urgentemente un subprograma de feliz cumpleaños de VB, espere en línea, ¡es muy urgente!

Función de declaración privada GetWindowLong Lib "user32" Alias ​​​​"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Función de declaración privada SetWindowLong Lib "user32" Alias ​​​​"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Función de declaración privada privada SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags Mientras) Mientras

Const privada WS_EX_LAYERED = amp H80000

Const privada GWL_EXSTYLE = (-20)

Const privada LWA_COLORKEY = amp; >Private Sub Form_Load ()

Me.WindowState = 2

Dim rtn As Long

rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

rtn = rtn O WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes hwnd, vbBlue, 0, LWA_COLORKEY 'vbBule

End Sub

Agregado Después de este montón de códigos, no dudes en agregar algunas imágenes de feliz cumpleaños