我用的是皮肤工具activeskin 4.3,sk1是个皮肤的label.
  
Private Sub sk1_DragOver(Index As Integer, Source As Control, x As Single, y As Single, State As Integer)
qk_ID = P_ID(Index)  'P_ID(50)是保存表的ID值If qk_ID = 0 Then
  Exit Sub
Else
 Detail.Show     '根据P_ID的值显示内容
End If
End Subqk_ID的值根据点击的Lable变化的,但是Detail显示的有时侯会是显示前面点击的内容