用vb制作流星雨屏幕保护程序

来源：百度知道 编辑：UC知道 时间：2024/06/04 15:32:31
等急要啊 希望速度点哈 经过验证程序正确立即加分!!!
这位仁兄的代码我试过了怎么没反应啊 可否说的再详细点 需要在窗体里加什么空件不?最好能把原代码发我邮箱里hjz2022503@163.com谢谢啦

已将工程文件发你邮箱
窗体属性页设置：
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "star"
ClientHeight = 3195
ClientLeft = 0
ClientTop = 0
ClientWidth = 4680
ControlBox = 0 'False
FillColor = &H008080FF&
FillStyle = 0 'Solid
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 213
ScaleMode = 3 'Pixel
ScaleWidth = 312
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
代码：
Option Explicit
Private Declare Function Ellipse Lib "gdi32" _
(ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Functio