在vb中 鼠标拖动时标准控件为什么会闪，怎么做才会好，谢谢

在vb中 鼠标拖动时标准控件为什么会闪，怎么做才会好，谢谢

Option Explicit
Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (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 Sub Form_Load()
SetWindowLongA hWnd, -20, GetWindowLongA(hWnd, -20) Or 524288
SetLayeredWindowAttributes hWnd, vbBlack, 255, 2
End Sub

看它还会不会闪

你图片上出现错误的那句话的整行，把它放到第一行代码的上面。（全局变量）

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息