2009最流行VB流星代码

'运行后可以后到一个由圆画成的爱心,送给好孩呵呵
'分辨率=1024*768
'要生成文件的后缀名为scr
'窗体样式要改为Me.BorderStyle = 0
Dim X1, Y1, X2, Y2 As Integer
Dim I As Integer
Dim J As Boolean
Dim K As Integer

Dim WithEvents Label1 As Label '声明一个label
Dim WithEvents Timer1 As Timer '声明一个timer

Private Sub Form_Activate()
    I = 100
    K = 100
    X1 = Me.Width / 2
    Y1 = Me.Height / 3
    X2 = X1
    Y2 = Y1
     
    Rem 设置label的位置
    Label1.Top = Me.Height / 2 - Label1.Height / 2
    Label1.Left = Me.Width / 2 - Label1.Width / 2
End Sub

Private Sub Form_Load()
    Me.BackColor = &H0& '窗体的背景色为黑色
    Me.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) '窗体的填充色为随机
    Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) '窗体的前景色为随机
    Me.DrawMode = 13 '窗体输出的外观为13