在VB编程中，要绘制一个星星图案，你可以使用`Line`方法来连接星星的五个顶点。以下是一个简单的示例，展示了如何在窗体的鼠标按下事件中绘制一个五角星：
```vb
Private Sub form_load（）
Me.AutoRedraw = True
End Sub
Private Sub form_mousedown（button As Integer, shift As Integer, x As Single, y As Single）
Const pi = 3.14159265358979
Dim r As Single = Val（InputBox（"输入五角星的直径，大于1000"）） / 2 ' 中心坐标是（x,y）
Dim x1 As Single = x
Dim y1 As Single = y - r
Dim x2 As Single = x + r * Cos（pi / 10）
Dim y2 As Single = y - r * Sin（pi / 10）
Dim x3 As Single = x + r * Cos（54 / 180 * pi）
Dim y3 As Single = y + r * Sin（54 / 180 * pi）
Dim x4 As Single = x - r * Cos（54 / 180 * pi）
Dim y4 As Single = y3
Dim x5 As Single = x - r * Cos（18 / 180 * pi）
Dim y5 As Single = y2
' 画五角星
Line （x1, y1）-（x3, y3）
Line -（x5, y5）
Line -（x2, y2）
Line -（x4, y4）
Line -（x1, y1）
End Sub
```
在这个示例中，我们首先在窗体的加载事件中启用自动重绘。然后，在鼠标按下事件中，我们通过输入框获取用户输入的直径，并计算出五角星的五个顶点的坐标。最后，我们使用`Line`方法连接这些点，从而绘制出五角星。
请注意，这个示例假设用户输入的直径大于1000，并且没有进行错误处理。在实际应用中，你可能需要添加一些错误检查和验证来确保程序的健壮性。