在窗体上建立命令按钮的控件数组,假设命令按钮的数目是6个,单击不同的命令按钮,分别在窗体画出半径不同的

建按钮数组 6个

简单的，下面这个就行：
Private Sub Command1_Click(Index As Integer)
Circle (1200, 1000), 750 * ((Index + 1) / 6#)
End Sub

复杂的，自己根据情况设定：
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Circle (1200, 1000), 100 '圆心坐标，半径
Case 1
Circle (1200, 1000), 100 '圆心坐标，半径
Case 2
Circle (1200, 1000), 100 '圆心坐标，半径
Case 3
Circle (1200, 1000), 100 '圆心坐标，半径
Case 4
Circle (1200, 1000), 100 '圆心坐标，半径
Case 5
Circle (1200, 1000), 100 '圆心坐标，半径
End Select
End Sub

Select Case Command1(Index)
Case Index = 1
MsgBox 1'替换成画圆代码
Case Index = 2
MsgBox 2
3..4..5...如此类推
End Select