要用VB（Visual Basic）编写一个围棋程序，你需要考虑以下几个关键部分：
棋盘表示：
可以使用二维数组来表示棋盘，其中每个元素代表棋盘上的一个位置，可能的值为0（无子）、1（黑子）或2（白子）。
图形界面：
可以使用VB的图形控件来绘制棋盘和棋子。例如，使用`PictureBox`控件来显示棋盘，使用`Line`控件来绘制棋盘线。
用户交互：
提供按钮或菜单项来允许用户放置棋子、悔棋、交换黑白棋子等。
游戏逻辑：
实现围棋的基本规则，如落子、提子、打劫等。这可能涉及到递归算法来判断死活和计算棋子的气。
计时功能：
可以使用`Timer`控件来实现计时功能，记录对局时间。
复盘功能：
保存对局过程，以便用户可以回顾对局。
```vb
Option Explicit
Private Board（0 To 18, 0 To 18） As Byte ' 棋盘，0：无子，1：黑子，2：白子
Private lastnum As Integer ' 最新放置棋子的位置号
Const HDist As Integer = 250 ' 水平距离
Const VDist As Integer = 800 ' 垂直距离
Const Grid As Integer = 250 ' 棋盘大小
Private Sub Form_Load（）
' 初始化棋盘
For i = 0 To 18
For j = 0 To 18
Board（i, j） = 0 ' 无子
Next j
Next i
lastnum = 0
End Sub
Private Sub cmdPlaceBlack_Click（）
' 放置黑子
If lastnum <> 0 Then
Board（lastnum Mod 19, lastnum \ 19） = 1 ' 在（lastnum Mod 19, lastnum \ 19）位置放置黑子
shpChess（lastnum）.Visible = False ' 隐藏棋子图片
End If
lastnum = （lastnum + 1） Mod 360 ' 更新最新放置棋子的位置号
End Sub
Private Sub cmdPlaceWhite_Click（）
' 放置白子
If lastnum <> 0 Then
Board（lastnum Mod 19, lastnum \ 19） = 2 ' 在（lastnum Mod 19, lastnum \ 19）位置放置白子
shpChess（lastnum）.Visible = False ' 隐藏棋子图片
End If
lastnum = （lastnum + 1） Mod 360 ' 更新最新放置棋子的位置号
End Sub
```
这个示例代码仅实现了基本的棋盘初始化和黑白棋子放置功能。要实现完整的围棋程序，你还需要添加更多的功能，如自动提子、打劫判断、计时、复盘等。你可以参考其他围棋程序的开源代码或相关文档来进一步完善你的程序。