一楼防抽

晕，代码不让发

.......ding

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
----------------------------------------
Private Sub Form_Load()
　　Me.BackColor = vbBlue
　　Dim rtn As Long
　　rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
　　rtn = rtn Or WS_EX_LAYERED
　　SetWindowLong hwnd, GWL_EXSTYLE, rtn
　　SetLayeredWindowAttributes hwnd, vbBlue, 0, LWA_COLORKEY
End Sub

很好！学习！

这些看不懂！
向您请教一个简单的问题：
Private Sub Form_Load()
Print "天天向上"
End Sub
'加载事件为什么不能输出？

Private Sub Form_Load()
Me.AutoRedraw = True
Print "天天向上"
End Sub

谢谢！解决了。