你没有说你的目的，我只是改成能运行，至于是否达到你的目的就不知道了。
Option Explicit

Dim flag As Boolean
Dim lx1 As Single, ly1 As Single, r As Single
Private Sub form__load()
Top = 0
Left = 0
Width = 8000
Height = 8000
With Picture1
.Top = 1000
.Left = 0
.Width = 7800
.Height = 6500
End With
flag = False
Option1.Value = True
End Sub
Private Sub picture1_mousedown(button As Integer, shift As Integer, x As Single, y As Single)
flag = True
lx1 = x
ly1 = y
End Sub

Private Sub picture1_mousemove(button As Integer, shift As Integer, x As Single, y As Single)
If flag = True Then
Picture2.AutoRedraw = True
Picture1.Line (0, 0)-(0, 0)
Picture1.AutoRedraw = False
Call draw(x, y)
End If
End Sub
Private Sub picture1_mouseup(button As Integer, shift As Integer, x As Single, y As Single)
flag = False
Picture1.AutoRedraw = True
Call draw(x, y)
End Sub
Sub draw(x As Single, y As Single)
If Option1.Value Then
Picture1.Line (lx1, ly1)-(x, y)
Else
Picture1.Line (lx1, ly1)-(x, y), , B
r = Sqr((x - lx1) ^ 2 + (y - ly1) ^ 2)
Picture1.Circle (lx1, ly1), r
End If
End Sub

注意select语句：
select case 条件表达式
case 条件结果1
…………
case 条件结果2
…………
…………
…………
end select

谢谢这位大哥。我要做的单击option1 option2 option3按纽可以画一个矩形框 直线 圆。
还有就是想问下大哥，考计算机三级主要考那些内容，考那类比较好学，比较容易过。我学计算机网络的。谢谢

谢谢这位大哥。我要做的单击option1 option2 option3按纽可以画一个矩形框 直线 圆。有个frame框和一个图片框
还有就是想问下大哥，考计算机三级主要考那些内容，考那类比较好学，比较容易过。我学计算机网络的。谢谢

说穿了，用单选按钮来控制究竟采用对象的那个方法来做图。

private sub zuotu()
if option1.value then 
line             '参数自己加
elseif option2.value then
Circle           '参数自加
else
line,,B          '参数自己加
endif
end sub

至于考试，我连一级都没有考过，无可奉告。
我也不是学计算机或信息相关专业的。就是玩。

你竟然计算机语言功底还行 为什么不去考下  这样工作也比较好找点

哈哈哈哈，还去找工作？

那你是干嘛的   你在读书是吧。  学什么专业的啊

我工龄都20年了
就等退休了