在VB编程中，打印特定图案通常需要使用嵌套的循环语句来控制打印的位置和字符。以下是一个简单的示例，展示了如何使用VB编程打印一个星号图案：
```vb
Private Sub Command1_Click（）
Dim i As Integer
For i = 1 To 7
If i = 1 Then
Print Tab（13）； "*"
ElseIf i = 2 Then
Print Tab（9）； "*"
ElseIf i = 3 Then
Print Tab（5）； "*"
ElseIf i = 4 Then
Print Tab（1）； "*"
ElseIf i = 5 Then
Print Tab（5）； "*"
ElseIf i = 6 Then
Print Tab（9）； "*"
ElseIf i = 7 Then
Print Tab（13）； "*"
End If
Next i
End Sub
```
在这个示例中，我们使用了一个`For`循环来遍历数字1到7，并根据当前数字的值打印不同数量的制表符和星号。`Tab`函数用于在文本中添加制表符，以便将星号对齐到所需的列。
如果你想要打印一个更复杂的图案，比如一个由星号和空格组成的菱形，你可以使用以下代码：
```vb
Private Sub Command1_Click（）
Dim i As Integer
For i = 1 To 7
If i <= 4 Then
t = t + 2
Else
t = t - 2
End If
Print String（t, "*"）
Next i
End Sub
```
在这个示例中，我们使用了一个变量`t`来控制每行星号的数量，根据循环变量的值来增加或减少`t`的值，并使用`String`函数来重复打印星号。
这些示例展示了如何在VB编程中使用循环和条件语句来打印不同的图案。你可以根据自己的需求调整循环次数、条件判断和打印内容，以创建出各种复杂的图案。