Sample Code - Use 格式控制員_行動電話Y2008M05D20

        ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' 
        ' Begin_[2008_06_07_PM_03_56_17]
        ' Comments by WeiJin Tang (湯偉晉) :
        '   Sample Code - Use 格式控制員_行動電話Y2008M05D20
        '  
        Dim O As New 格式控制員_行動電話Y2008M05D20

        Dim SB As New System.Text.StringBuilder
        Dim R As New System.Random
        Dim PN As String

        For i As Integer = 1 To 100
            PN = _
                R.Next(9999).ToString.PadLeft(4, "0"c) & R.Next(999).ToString.PadLeft(3, "0"c) & R.Next(999).ToString.PadLeft(3, "0"c)

            SB.Append(PN)
            SB.Append(vbNewLine)
            SB.Append(O.取得格式化的行動電話之號碼(PN))
            SB.Append(vbNewLine)
            SB.Append("- - - - - -")
            SB.Append(vbNewLine)
        Next

        'MsgBox(O.GetFormattedMobilePhoneNumber("0958227243"))

        Me.RichTextBox1.Text = SB.ToString
        '  
        ' End_[2008_06_07_PM_03_56_17]
        ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '