在VB（Visual Basic）中设计心形，可以通过数学公式计算出每个坐标点的位置，然后使用绘图函数将这些点连接起来。以下是一个简单的VB程序代码段，用于在窗体上绘制一个爱心形状：
```vb
Private Sub Form_Paint（）
Dim Scale As Single
Scale = 5
Me.ScaleMode = vbPixels
Me.Cls
For t = 0 To 2 * 3.14 Step 0.01
x = Scale * 16 * Sin（t） ^ 3
y = -Scale * （13 * Cos（t） - 5 * Cos（2 * t））
Me.PSet （x + Me.ScaleWidth / 2, y + Me.ScaleHeight / 2）, vbRed
Next t
End Sub
```
代码解释：
设定比例尺 ：`Dim Scale As Single` 定义了一个比例尺变量 `Scale`，这里设定为5。清除画布：
`Me.Cls` 用于清除窗体上的所有内容。
循环绘制：
使用 `For` 循环从 `t = 0` 到 `t = 2 * 3.14`，步长为0.01，计算出每个点的 `x` 和 `y` 坐标。
计算坐标
`x = Scale * 16 * Sin（t） ^ 3`
`y = -Scale * （13 * Cos（t） - 5 * Cos（2 * t））`
绘制点：
使用 `Me.PSet` 函数在计算出的坐标位置绘制红色点。
注意事项：
上述代码只能在VB的窗体对象上绘制爱心形状，如果需要在其他控件上绘制，例如PictureBox，需要对代码进行适当修改。
可以通过调整 `Scale` 变量的值来改变爱心的大小。
如果需要更复杂的图形效果，可以修改公式或增加更多的绘图步骤。
希望这个示例能帮助你理解如何在VB中绘制心形。