Public Class 可複製訊息通知框
    Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
        訊息_tb.Text = "" : Me.Close()
    End Sub
    Private Sub 可複製訊息通知框_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 可複製訊息通知框_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        訊息_tb.SelectionStart = 訊息_tb.Text.Length : 訊息_tb.SelectionLength = 0
    End Sub
End Class