VBA创建错误：未定义子对象

我尝试使用Microsoft VB for applications（VBA）为CorelDraw创建宏。我在“form1”窗口中设置了一个表单和一段代码。这意味着在单击“生成”按钮时创建一个圆，但它显示

“未定义子函数或函数”

对于下面这行代码

PRIVATE SUB GENERATE_CLICK().

---

你有一个

B2

、

B3

和

B4

子例程吗？可能还没有问题？是的，这是个问题。好吧，很快再问一个问题。我正试着用这个代码创建一个圆圈：“ActiveLayer.CreateEllipse.Fill.UniformColor.RGBBlue”，然后得到一条消息说arguement Not optiona；你有一个

B2

、

B3

和

B4

子例程吗？可能还没有问题？是的，这是个问题。好吧，很快再问一个问题。我正试着用这个代码创建一个圆圈：“ActiveLayer.CreateEllipse.Fill.UniformColor.RGBBlue”，然后得到一条消息说arguement Not optiona；

Private Sub UserForm_Initialize()
    Me.ComboBox1.AddItem ("Badge 1")
    Me.ComboBox1.AddItem ("Badge 2")
    Me.ComboBox1.AddItem ("Badge 3")
    Me.ComboBox1.AddItem ("Badge 4")
End Sub

Private Sub Generate_Click()
    If ComboBox1.Value = "Badge 1" Then B1
    If ComboBox1.Value = "Badge 2" Then B2
    If ComboBox1.Value = "Badge 3" Then B3
    If ComboBox1.Value = "Badge 4" Then B4
End Sub

Sub B1()
    Dim s As Shape
    Dim w As Double
    Dim h As Double

    ActiveLayer.CreateEllipse w, h
End Sub