VB.NET 章鱼哥 ——程序员也懂爱，动态绘制红心，很浪漫哦

先看看效果图吧：有动态绘制效果哦。

想不想知道怎么绘制的啊，别急，下面就直接给源码！

1界面设计。一个Form窗体，一个Panel控件，一个Button按钮。就这么简单。

代码：

'*********************************************************************     
'作者：章鱼哥，QQ：3107073263 群：309816713         
'如有疑问或好的建议请联系我，大家一起进步       
'*********************************************************************       
Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
    '定义一些全局变量
    Dim A_1_R As Double
    Dim A_1_L As Double

    Dim x1R As Double
    Dim x1L As Double
    Dim y1R As Double
    Dim y1L As Double
    Dim x2R, x2L As Double
    Dim y2R, y2L As Double
    Dim ArrayS As New ArrayList
    Dim ArrayE As New ArrayList
    Dim ArrayL As New ArrayList
    Dim ArrayR As New ArrayList
    Dim ind As Integer
    Dim Rin As Integer
    Dim PD As Boolean = False
    Dim indx As Integer
    Dim Lin As Integer
    Dim PDST As Boolean = False
    Dim CirD As Double
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '生成圆形
        SetCircle()
        '初始化一些变量
        ini()

    End Sub
    '生成圆
    Private Sub SetCircle()
        Dim Cir As New OvalShape
        Dim contain As New ShapeContainer
        contain.Parent = Me.Panel1
        Cir.Parent = contain
        Dim Wid As Integer
        If Panel1.Width > Panel1.Height Then
            Wid = Panel1.Height
        Else
            Wid = Panel1.Width
        End If
        CirD = Wid
        With Cir
            .Location = New Point(0, 0)