VB.NET: LinkLabel Control

Control LinkLabel adalah Label yang bisa menampilkan hyperlink. Karena merupakan control inherit dari Label maka semua fasilitas yang dimiliki Label terdapat pula pada LinkLabel.

Pada contoh berikut ini adalah penggunaan Linklabel bisa untuk membuka suatu drive/folder dengan window explorer, membuka link website, dan menjalankan aplikasi tertentu.
UI:

Code:
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles MyBase.Load
     LinkLabel1.Text = "Open Drive C:\"
     LinkLabel2.Text = "Goto: http://cctvarea.com/"
     LinkLabel3.Text = "Use IE: http://cctvarea.com/"
     LinkLabel4.Text = "Run Notepad"
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As _
     System.Object, ByVal e As _
     System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
     Handles LinkLabel1.LinkClicked

     LinkLabel1.LinkVisited = True
     System.Diagnostics.Process.Start("C:\")
End Sub

Private Sub LinkLabel2_LinkClicked(ByVal sender As _
     System.Object, ByVal e As _
     System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
     Handles LinkLabel2.LinkClicked

     LinkLabel2.LinkVisited = True
     System.Diagnostics.Process.Start("http://cctvarea.com/")
End Sub

Private Sub LinkLabel3_LinkClicked(ByVal sender As _
    System.Object, ByVal e As _
    System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
    Handles LinkLabel3.LinkClicked

    LinkLabel3.LinkVisited = True
    System.Diagnostics.Process.Start("IExplore", _
                            "http://cctvarea.com/")
End Sub

Private Sub LinkLabel4_LinkClicked(ByVal sender As _
     System.Object, ByVal e As _
     System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
     Handles LinkLabel4.LinkClicked

     LinkLabel4.LinkVisited = True
     System.Diagnostics.Process.Start("notepad")
End Sub
End Class

Runtime: