Вставка текста по правому клику мыши - Visual Basic .NET/.NET 4.x

Формулировка задачи:

Всем знатокам доброго времени суток!

Проблема в названии - как вставить текст, содержащийся построчно в переменной, по клику правой кнопки мыши. Допустим, есть некий текст: Маша Гриша Петя.... При первом клике на правую кнопку мыши в текстовое поле вставляется - Маша. Потом печатается какой-то текст и по клику правой кнопки вставляется - Гриша. Опять текст....клик...вставляется - Петя и т.д. Нашел в сети такой код -

Imports System.IO
 
Public Class Form1
    Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As MouseProcDelegate, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer
    Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As MSLLHOOKSTRUCT) As Integer
    Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer
    Private Delegate Function MouseProcDelegate(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As MSLLHOOKSTRUCT) As Integer
 
    Private Structure MSLLHOOKSTRUCT
        Public pt As Point
        Public mouseData As Integer
        Public flags As Integer
        Public time As Integer
        '    Public dwExtraInfo As Integer
        Public dwExtraInfo As IntPtr  '   Заработало! 
    End Structure
 
#Region "Consts"
    Private Const HC_ACTION As Integer = 0
    Private Const WH_MOUSE_LL As Integer = 14
    Private Const WM_MOUSEMOVE As Integer = &H200
    Private Const WM_LBUTTONDOWN As Integer = &H201
    Private Const WM_RBUTTONDOWN As Integer = &H204
    Private Const WM_RBUTTONUP = &H205
#End Region
    Private WithEvents mHook As New MouseHook
    Private MouseHook As Integer
    Private MouseHookDelegate As MouseProcDelegate
    Dim slv() As String
    Dim i, dls, j, k As Integer
    Dim line, nmd, path, scb, st, tsr, ttx As String
    Dim sr, sj, mcf As StreamReader
    Dim Lists As New Collection
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MouseHookDelegate = New MouseProcDelegate(AddressOf MouseProc)
        MouseHook = SetWindowsHookEx(WH_MOUSE_LL, MouseHookDelegate, 0, 0)
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        UnhookWindowsHookEx(MouseHook)
        Me.Close()
    End Sub
 
    Private Function MouseProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As MSLLHOOKSTRUCT) As Integer
        If (nCode = HC_ACTION) Then
            Select Case wParam
                Case WM_MOUSEMOVE
 
                Case WM_LBUTTONDOWN
                    ' TextBox1.Text = "Left"
 
                Case WM_RBUTTONDOWN
                    '  TextBox1.Text = "Right"
         sr = New StreamReader("D:\temp\MyTest.txt", System.Text.Encoding.Default, False, 512)
                    line = sr.ReadToEnd
                    If line <> Nothing Then
                        dls = line.Length
                        slv = Split(line, vbCrLf)
                    End If
                              For j = 0 To slv.Length - 1
                        My.Computer.Clipboard.SetText(slv(j) & vbCrLf)
                                  Next
                Case WM_RBUTTONUP
           End Select
        End If
    End Function
 
End Class

На форме текстбокс. Но в текстовое поле вставляется сразу весь список, а мне нужно по клику и построчно. Помогите советом. Спасибо за понимание.

Решение задачи: «Вставка текста по правому клику мыши»

textual
                            Листинг программы 
                        

                            'определите общие для формы переменные
Private str() As String = {"Маша", "Гриша", "Петя"}
Private ins As Integer
'здесь лучше определиться с ContextMenu чтобы оно не мешалось при вставке
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    TextBox1.ContextMenu = New ContextMenu
End Sub
Private Sub TextBox1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
    If e.Button = Windows.Forms.MouseButtons.Right AndAlso ins < str.Length Then
        TextBox1.Paste(str(ins))
        TextBox1.SelectionStart += TextBox1.SelectionLength
        TextBox1.SelectionLength = 0
        ins += 1
    End If
End Sub
                        