vb6
首先启动vb6的快捷方式，执行文件-新建工程命令，在新建工程对话框中选择标准exe文件。
进入窗体界面调节其大小使其布局美观，修改其caption属性值为“表白图案”，修改其borderstyle属性值为“4-fiexd”，修改其背景颜色为浅蓝色。
双击工具箱里picturebox控件，在窗体上创建一个picturebox1控件，调节该控件的大小和位置，修改其backcolor为浅色。
双击picturebox1控件进入其代码区域，在该区域一定选择对象为picturebox1，过程选择click事件。
首先绘制一条带有箭头的线段，书写其代码，代码如下：Picture1.DrawWidth = 1Picture1.Scale (-10, 10)-(10, -10)Picture1.Line (-10, 0)-(10, 0), RGB(255, 0, 0)Picture1.Line (10, 0)-(9.5, 0.125), RGB(255, 0, 0)Picture1.Line (10, 0)-(9.5, -0.125), RGB(255, 0, 0)并点击启动按钮进行调试，直至调试出结果。
接着要绘制一颗红心，绘制红心必须使用循环语句并配合数学函数来实现，接着输入代码： For x = -1.57 To 1.57 Step 0.00008y = (Sqr(Cos(x)) * Cos(200 * x) + Sqr(Abs(x)) - 0.7) * (4 - x ^ 2) ^ (0.01) Picture1.PSet (5 * x, 5 * y), RGB(255, 0, 0) Next x
点击工具栏里启动按钮进行编译调试运行，根据错误提示确定错误位置并进行修改直至无误为止。
再次进行修改，对于未定义的变量重新定义之后再次使用，Dim x, y As Single，接着点击启动继续调试运行。
代码无误后会在窗体上显示正确的图案，查看图案效果是否与预想一致。
接着可以对整体图案再次进行修改，比方说修改箭头的方向，修改为纵向的箭头，修改背景颜色等等。
执行文件-工程另存为命令，在弹出的对话框中输入命令，依次保存工程和窗体文件。