vbs画动态爱心代码_求助，求一个vbs画心形的代码（程序小白的求助）

[Visual Basic] 纯文本查看 复制代码Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim B As New Bitmap(Me.Width, Me.Height)

Using G As Graphics = Graphics.FromImage(B)

G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

Using Gp As New Drawing2D.GraphicsPath

Dim Rc1, Rc2 As Rectangle

Rc1 = New Rectangle(Me.Width / 3 - 35, Me.Height / 2 - Me.Height / 3, 100, 100)

Rc2 = New Rectangle(Me.Width / 3 * 2 - 65, Me.Height / 2 - Me.Height / 3, 100, 100)

Gp.AddArc(Rc1, 180, 135)

Gp.AddArc(Rc2, 225, 135)

Dim PtsLst, PtsLst2 As New List(Of Point)

With PtsLst

.Add(New Point(Rc1.Left, Rc1.Top + Rc1.Height / 2))

.Add(New Point(Rc1.Left + 10, Rc1.Top + Rc1.Height / 2 + Rc1.Height / 3))

.Add(New Point(Rc1.Left + Rc1.Width / 2, Rc1.T