在Visual Basic（VB）中进行图形编程，你可以使用以下方法：
使用Shape控件
Shape控件是VB中提供的一个简单工具，用于在窗体上创建各种基本图形。你可以通过设置Shape控件的Shape属性来选择不同的图形类型，如矩形、正方形、椭圆、圆形、圆角矩形或圆角正方形，并可以自定义它们的样式、颜色、填充样式、边框颜色和边框样式等。
```vb
Private Sub Command1_Click（）
' 创建一个矩形
Shape1.Shape = 0 ' 矩形（默认值）
' 创建一个正方形
' Shape1.Shape = 1
' 创建一个椭圆
' Shape1.Shape = 2
' 创建一个圆形
' Shape1.Shape = 3
' 创建一个圆角矩形
' Shape1.Shape = 4
' 创建一个圆角正方形
' Shape1.Shape = 5
End Sub
```
使用GDI+技术
GDI+（Graphics Device Interface）是VB中用于绘制图形和动画的强大技术。通过GDI+，你可以绘制直线、矩形、圆形等基本图形，并添加填充颜色、渐变、阴影等特效，实现各种动画效果。
```vb
Public Class Form1
Dim x, y, radius As Integer
Dim angle As Single = 0
Private Sub Form1_Load（sender As Object, e As EventArgs） Handles MyBase.Load
x = Me.Width \ 2
y = Me.Height \ 2
radius = 50
Timer1.Interval = 50
Timer1.Start（）
End Sub
Private Sub Form1_Paint（sender As Object, e As PaintEventArgs） Handles Me.Paint
Dim g As Graphics = e.Graphics
Dim rect As New Rectangle（x - radius, y - radius, 2 * radius, 2 * radius）
Dim brush As New SolidBrush（Color.Blue）
g.FillEllipse（brush, rect）
End Sub
End Class
```
使用Graphics对象和Pen对象
通过Graphics对象和Pen对象，你可以绘制各种线条和形状。例如，使用DrawEllipse方法绘制椭圆。
```vb
Private Sub Button1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button1.Click
Dim g As Graphics = Panel1.CreateGraphics
Dim pen1 As Pen = Pens.Black
g.DrawEllipse（pen1, 20, 20, 30, 30）
End Sub
```
导入System.Drawing命名空间
为了使用GDI+和其他图形相关的类和方法，你需要导入System.Drawing命名空间。
```vb
Imports System.Drawing
```
示例：绘制五角星
```vb
Private Sub五角星绘制（）
' 绘制五角星的代码
End Sub
```
总结
通过上述方法，你可以在VB中实现各种图形编程任务。根据你的需求选择合适的方法，可以创建出丰富多样的用户界面和视觉效果。建议初学者从简单的Shape控件开始，逐步掌握GDI+技术，以便能够实现更复杂的图形和动画效果。