主题：额，老师，怎么在用代码 运行另一个 控件 的click 代码。

Dim dr As DataRow = DataTables("兽药品种库").find("通用名 = '" & e.sender.text & "'")
If dr IsNot Nothing Then
    Dim i As Integer
    For Each str As String In dr.lines("产品备注")
        For i = 1 To 15
            If Forms("兽药品种录入").Controls("属性" & i & "").text = str.SubString(str.IndexOf(":")+1,str.length - str.IndexOf(":")-1) Then
                Forms("兽药品种录入").Controls("属性" & i & "").click

            End If
        Next  
    Next
End If

额，就是 用代码 去运行  Forms("兽药品种录入").Controls("属性" & i & "")  的 cilck 中的代码。

额，或者说，模拟，单击一下 Forms("兽药品种录入").Controls("属性" & i & "")  控件。