'运行后可以后到一个由圆画成的爱心,送给好孩呵呵
'分辨率=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()
...
阅读全文>>