在VB编程中设计心形，可以通过绘制一系列的点来形成一个心形图案。以下是一个简单的示例代码，使用VB6的`PictureBox`控件和`Line`函数来绘制心形：
```vb
Private Sub Command1_Click()
' 设置PictureBox控件的属性
Dim picBox As PictureBox
Set picBox = New PictureBox
picBox.Width = 200
picBox.Height = 200
picBox.Visible = True
Me.Controls.Add picBox
' 绘制心形
Dim x As Integer, y As Integer
Dim step As Integer
step = 2
' 绘制心形的左半部分
For x = 50 To 150
y = 50 + Sqr(100 - x * x) * 50
picBox.Picture = picBox.Picture Or BitBlt(picBox.Width, picBox.Height, x, y, 1, 1, picBox.Width, 1)
Next x
' 绘制心形的右半部分
For x = 150 To 50 Step -step
y = 50 + Sqr(100 - x * x) * 50
picBox.Picture = picBox.Picture Or BitBlt(picBox.Width, picBox.Height, x, y, 1, 1, picBox.Width, 1)
Next x
End Sub
```
在这个示例中，我们首先创建了一个`PictureBox`控件，并设置了其大小和可见性。然后，我们使用两个`For`循环来绘制心形的左半部分和右半部分。每个循环都计算了心形的顶点坐标，并使用`BitBlt`函数将每个点绘制到`PictureBox`上。
请注意，这个示例代码是基于VB6的，如果你使用的是VB.NET或其他版本的VB，可能需要使用不同的方法和控件来实现类似的效果。