My On-screen Russian Keyboard - FindProcess.vb

Public Class FindProcess
    'onLoad
    Private Sub FindProcess_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim psList() As Process
        Try
            psList = Process.GetProcesses()
            For Each p As Process In psList
                ListBox1.Items.Add(p.ProcessName.ToString)
            Next p
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    'onClick
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Form1.TextBox1.Text = Me.ListBox1.SelectedItem.ToString
        Me.Close()
    End Sub
End Class