在用一些软件时，象标签或文本框，此控件的底色是灰色的，当鼠标的右键单击它时，会显示一列数据。
请教各位高手：vb6好像无此控件是吗？

[此贴子已经被作者于2016-3-29 22:14编辑过]

不明白你需要的是什么效果，如果只是提示的话，可以使用tooltipText属性。
如果一定要右键显示话，可以在控件的mouseup中添加代码。
首先是判断是否右键
然后显示一个悬浮的Label，位置就在你鼠标位置，
几秒钟之后隐藏lable

谢谢您的回复。请您做个Label1的例子如何？

窗体上放两个控件label1，LabelToolTipText
label1：设置好控件的caption，ToolTipText
LabelToolTipText： 背景色改一下（这样有差异）， 不可见
右键按下，显示提示内容，右键放开，提示内容消失

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Dim p As POINTAPI
Dim ss As Double

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Then
    LabelToolTipText.Visible = True
    GetCursorPos p
    LabelToolTipText.Left = p.X + Label1.Left
    LabelToolTipText.Top = p.Y + Label1.Top
    LabelToolTipText.Caption = Label1.ToolTipText  '或者写其他的内容
 End If

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

 If Button = 2 Then
    LabelToolTipText.Visible = False

 End If
End Sub

ToolTipText控件没有看见过，请告知其如何使用到窗体上，我的书也没有此控件。谢谢。

[此贴子已经被作者于2016-3-30 16:47编辑过]

LabelToolTipText就是label，取得名字而已。
ToolTipText是控件的属性

不会。请修改附件。谢谢。

楼主是想让控件显示快捷菜单吧，是吗？

什么数据均可，但必须是鼠标的右键单击它时，再显示赋予其的所有的数据。谢谢。

你的窗体里面LabelToolTipText改成label2就可以了，label2的visible设置为false，背景色也改一下（这样效果更好一点）