主题：如何删除多行文本框中的空行？？？

以下方法都未成功

.Lines(i) = .Lines(i).Replace("' & vbcrlf & '","")
.Lines(i).Delete()

With e.Form.Controls("TextBox1")
    For i As Integer = 0 To .Lines.Length - 1
        Dim s As Integer = .Lines(i).Length
        If s = 0
            .Lines(i) = .Lines(i).Replace("' & vbcrlf & '","")
            '.Lines(i).Delete()
        End If
    Next
End With