vb中如何创建label的超级链接，打开的不是网页而是一张数据库表或是图片？

Private Sub yourlabel_Clik()
‘ 在这里写打开、显示图表的代码
End Sub

要看起来像超链接，还需要些修饰：
Private Sub yourlabel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If yourlabel.ForeColor <> RGB(0, 0, &HFF) Then
yourlabel.ForeColor = RGB(0, 0, &HFF)
yourlabel.FontUnderline = True
yourlabel.FontBold = True
End If
End Sub

Private Sub yourlabel背景窗体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If yourlabel.ForeColor = RGB(0, 0, &HFF) Then
yourlabel.ForeColor = &HC0C0C0 ' 灰色。什么颜色随你了。
yourlabel.FontUnderline = False
yourlabel.FontBold = False
End If
End Sub