怎么逐行复制richtextbox控件中的内容

如何逐行复制richtextbox控件中的内容
各位好:
      我想做这样一个简单的程序,单击按钮,会复制richtextbox控件中的第一行内容,
第二次单击铵钮,则复制第二行内容,依次类推.
    刚学VB.NET   ,不知道要怎么写这段代码,请指教!

------解决方案--------------------
Public Class Form1
Dim currentline As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (RichTextBox1.Lines.Length = 0) Then MsgBox( "文本框为空 ") : Exit Sub
If (RichTextBox1.Lines.Length <= currentline) Then MsgBox( "已到内容尾端 ") : currentline = 0 : Exit Sub
If Not RichTextBox1.Lines(currentline) = " " Then Clipboard.SetText(RichTextBox1.Lines(currentline))
currentline += 1
End Sub


End Class