在Visual Basic（VB）中，可以使用多种方法来改变Shape控件的形状。以下是几种常见的方法：
使用BorderStyle属性
通过设置控件的BorderStyle属性，可以改变控件的边框样式。例如，设置为FixedSingle可以使控件的边框为单边线条。
使用Region属性
可以通过创建一个GraphicsPath对象来定义要设置的形状，并将其分配给控件的Region属性，从而改变控件的实际形状。
使用Shape属性
Shape控件提供了一些属性来直接设置其形状，例如：
`Shape`属性：用来设置形状控件的形状，其取值及边框形状如下：
0： 矩形
1： 正方形
2： 椭圆
3： 圆
4： 圆角矩形
5： 圆角正方形
```vb
Private Sub Form_Click（）
' 动态添加控件数组
For i = 1 To 7
Load Shape1（i）
Shape1（i）.Visible = True
Shape1（i）.Left = Shape1（i - 1）.Width + Shape1（i - 1）.Left + 500
Shape1（i）.Top = Shape1（i - 1）.Top
Shape1（i）.FillStyle = i
Next
End Sub
```
在这个示例中，我们创建了一个包含7个Shape控件的数组，并通过循环动态设置每个控件的形状和位置。每个控件的形状通过`FillStyle`属性设置为不同的值，从而实现了不同形状的显示。
建议
在设计界面时，建议先确定所需的形状类型和样式，然后选择合适的方法来实现。
如果需要更复杂的形状，可以考虑使用GraphicsPath对象进行自定义绘制。