使用VBA创建标签并更改其名称：如何单击它？

Question

我试图在运行时使用VBA在Frame中创建标签。问题是，我希望能够在创建它们后单击它们。所以这就是我所做的:(我的标签附在一个框架上）

Set TheLabel = Frame.Controls.Add("Forms.Label.1", Visible = True)
    With TheLabel
        .Name = "Label" & i
        .Caption = gTab(i, 2) & "_ " & gTab(i, 0) & Temp
        .Left = 6 + gTab(i, 2) * 12
        .Top = 12 + 16 * i
        .Height = 12
        .Width = 200
    End With

其中i是整数（它是当前标签的编号）。 使用此代码，我想我的Label的名称现在是Label1，Label2等。

但即便使用这段代码：

Private Sub Label1_Click()
    Frame.Height = 200
End Sub

它似乎无法奏效。

非常感谢！

Answer 1

要在运行时向userform添加控件，并在控件后面添加代码，请参阅this answer和this one as well。