With Forms("窗口1").Controls("txtMemo") For i As Integer = 0 To .Lines.Length - 1 Messagebox.Show(.Lines(i)) NextEnd With