Public Class Form2
    Private _Stext As String
    Public Property SetText() As String
        Get
            Return _Stext
        End Get
        Set(ByVal value As String)
            _Stext = value
            addItem()
        End Set
    End Property
    Sub addItem()
        ListView1.Items.Add(_Stext)
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Button1.Click, _
    Button10.Click, Button11.Click, Button12.Click, Button13.Click, _
    Button14.Click, Button2.Click, _
    Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, _
    Button8.Click, Button9.Click
        Dim tb As Control
        tb = DirectCast(sender, Button)
        Form2.SetText = tb.Text
    End Sub