Private Function GetlabelCaption(contr As Control) As String
Dim cn As Control
For Each cn In Me
If TypeName(cn) = "Label" And cn.Parent.Name = contr.Name Then
GetlabelCaption = cn.Caption
Exit Function
End If
Next
End Function
使用方法：getlabelcaption(控件名)

示例：msgbox getlabelcapiton(me.khid)