在Visual Basic（VB）中绘制正三角形可以通过多种方法实现。以下是几种常见的方法：
方法一：使用循环和打印字符
这种方法通过循环控制打印字符来形成正三角形的形状。
```vb
Private Sub Command1_Click（）
Dim i As Integer
For i = 1 To 10
Print Space（20 - i）；
For j = 1 To 2 * i - 1
Print "*"；
Next j
Next i
End Sub
```
方法二：使用坐标和线条命令
这种方法通过计算正三角形的三个顶点的坐标，然后使用VB的`Line`命令来绘制三条边。
```vb
Private Sub Command1_Click（）
' 清除窗体内的图形
Form1.Clear
' 确定边长
Dim a As Single
a = Val（InputBox（"请输入正三角形的边长： "））
' 确定窗体范围
Dim x As Single, y As Single
x = 0
y = a
' 绘制正三角形
For i = 1 To a
' 绘制点A
Point x, y
' 绘制点B
Point x + 0.5 * a, y - a * Sin（60 * pi / 180）
' 绘制点C
Point x + a, y
' 绘制边AB
Line x, y, x + 0.5 * a, y - a * Sin（60 * pi / 180）
' 绘制边BC
Line x + 0.5 * a, y - a * Sin（60 * pi / 180）, x + a, y
' 绘制边AC
Line x, y, x + a, y
Next i
End Sub
```
方法三：使用函数打印正三角形
这种方法通过定义一个函数来打印正三角形。
```vb
Sub PrintTriangle（n As Integer）
Dim i As Integer
Dim j As Integer
Dim ch As String
For i = 1 To n
For j = 1 To n - i
ch = " "
Next j
For j = 1 To 2 * i - 1
ch = "*"
Next j
Print ch
Next i
End Sub
Private Sub Command1_Click（）
PrintTriangle 5
End Sub
```
方法四：使用VB6.0的杨辉三角程序
这种方法使用杨辉三角的公式来生成正三角形的每一行。
```vb
Sub PrintPascalTriangle（nRows As Integer）
Dim triangle（nRows - 1, nRows - 1） As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
' 初始化三角形数组
For i = 0 To nRows - 1
For j = 0 To i
triangle（i, j） = 0
Next j
Next i
' 填充杨辉三角
For i = 0 To nRows - 1
triangle（i, 0） = 1
For j = 1 To i
triangle（i, j） = triangle（i - 1, j - 1） + triangle（i - 1, j）
Next j
Next i
' 打印三角形
For i = 0 To nRows - 1
For j = 0 To i
Print triangle（i, j）；
Next j
Next i
End Sub
```
这些方法各有优缺点，可以根据具体需求和编程环境选择合适的方法来实现正三角形的绘制。