改一下代码
Dim lbl As WinForm.Labellbl = e.Form.Controls("label1")Dim str As String = ""For Each s As String In lbl.text If s <> " " Then str = str & s & " " End IfNextDim n As Integer = len(str) - 1lbl.Text = right(str,n) & left(str,1)