在桌面上显示很多玫瑰花的一个vb小程序代码?

桌面涂鸦VB程序代码 Option Explicit Public Type POINTAPI x As Long y As Long End Type Public nXn As Long Public gfqw As Long Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public sbsb As POINTAPI Public Declare