Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

        LinkLabel1.Text = "ここは[VB中学校]というサイトです。掲示板はこちら。"

        LinkLabel1.Links.Add(4, 5, "http://homepage1.nifty.com/rucio/main/main.htm")

        LinkLabel1.Links.Add(19, 7, "http://rucio.groupsite.jp/commu/ThreadList.aspx")

    End Sub



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

        Process.Start(CStr(e.Link.LinkData))

    End Sub

End Class