Dim lms As String = "页面1|页面2|页面3"
Dim lst As new List(of String)
lst.AddRange(lms.split("|"))
Dim s As String
For Each ls As String In lst
s = e.sender.NavPages(ls).ButtonText
e.sender.NavPages(ls).ButtonText = left(s,len(s)-1) & "︾"
Next
s = e.sender.SelectedPage.ButtonText
e.sender.SelectedPage.ButtonText = left(s,len(s)-1) & "ㄍ"