Como dice el titulo quiero obtener el nombre de Proceso de un Programa al ejecutarlo .

lo que quiero es que al ejecutar por ejemplo counter strike 1.6 obtener el nombre del proceso que es ese caso es hl.exe

tengo el sig code para ejuecutarlo pero tambien quiero obtener el nombre del proceso en un label:

Dim Pr As New Process
                Dim Psi As New ProcessStartInfo("counterstrike.exe")
                Pr.StartInfo = Psi
                Pr.StartInfo.WindowStyle = ProcessWindowStyle.Normal
                Pr.Start()

no se si para obtener el proceso seria algo como esto Label3.Text = Pr.ProcessName

Gracias de Antemano 

Si entendí bien seria así (pestaña 1 - pestaña 2 - pestaña 3 ...):

1) crea un TabControl sin pestañas
2) crea un boton


código del FORMULARIO :

Public Class Form1
    Dim cont As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tabpage As New TabPage
        cont = cont + 1
        tabpage.Text = "Pestaña" & cont
        TabControl1.TabPages.Add(tabpage)
 
    End Sub
End Class

________________________________________________________________________________________________________________________________________

si quieres agregarles controles como ( botones - textbox - etc ) :

1) crea un TabControl sin pestañas
2) crea un botón.

código del FORMULARIO :

 Public Class Form1
    Dim cont As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tabpage As New TabPage
        cont = cont + 1
        tabpage.Text = "Pestaña" & cont
        Dim textbox1 As New TextBox
        Dim textbox2 As New TextBox
 
        textbox1.Parent = tabpage
        textbox2.Parent = tabpage
 
        textbox1.Location = New Point(10, 10)
        textbox2.Location = New Point(10, 30)
 
        TabControl1.TabPages.Add(tabpage)
 
    End Sub
End Class

                                 COMENTA SI TE SIRVIO  

Prueba esto en el código del form1 .

ToolTip1.SetToolTip(Me.Button9, "ME VALE VERGA LO QUE ME DIGAN")

ejemplo:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
ToolTip1.SetToolTip(Me.Button9, "ME VALE VERGA LO QUE ME DIGAN")
End Sub

bueno ese virus es un javascript deberias poder eliminarlo al formatearlo .

lo unico que se me ocurre es lo que dijo el compañero Angel lex , (que tu pc esta infectada) .

bueno prueba utilizar estos dos programas:

https://toolslib.net/downloads/viewdownload/548-antivirus-pro-v50/

o

https://toolslib.net/downloads/viewdownload/64-usb-file-resc/

bueno abres el programa y le das a desinfectar pc y despues el usb. 

En Venezuela, en este p*to país no hay ley.

gracias , @Elektro si me funciono .  de verdad me quedo impresionado de tanto conocimiento que posees sobre programacion .    . debes haber estudiado durante un buen tiempo.  Gracias , de verdad muchísimas gracias. 

PD : yo había intentado algo parecido pero no me funciono .

TextBox2.Text = RichTextBox1.Text

    Gracias de nuevo 

hola. soy yo de nuevo , jeje .     . buen me he encontrado con un problema.

bueno como dice el titulo , quiero copiar un texto de un Richtextbox y pegarlo a un textbox , bueno hasta hay es facil , pero cunado se copia al textbox no se conservan los saltos de linea . ya he intentado con vbnewline pero la verdad no se como hacerlo.

bueno tengo este codigo para copiar:

Clipboard.SetText(RichTextBox1.Text) 

y este para pegar :

If Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) = True Then
            If TextBox1.SelectionLength > 0 Then
                If MessageBox.Show("Do you want to paste over current selection?", _
                    "Cut Example", MessageBoxButtons.YesNo) = DialogResult.No Then
                    TextBox2.SelectionStart = TextBox2.SelectionStart + _
                        TextBox2.SelectionLength
                End If
            End If
            TextBox2.Paste()
        End If

el problema es que cuando pego el texto al Textbox no se conservan los saltos de linea y se pone todas la palabras pegadas . nesesito ayuda con ese problemilla .  

Gracias de antemano.  

Yo también soy venezolano sin Cantv y incluso ahora estoy es con el wifi del vecino que hackee con kalilinux .  

incluso mi internet es de 150 kb/s osea lento . pero no veo vídeos de youtube en tan vaja resolución .

por lo que tengo entendido en china la velocidad es de 1 mb/s . esto me hace pensar en :

P*TO MADURO .  

para mi las cosas que no deberian existir en la Internet Son:

*Pop ups o mejor conocidos como ( ventana emergente) a mi parecer son super fastidiosos . por lo tanto deberian desaparecer.

*Spoilers. mayormente sucede en las redes sociales .

el 240p de Youtube . Apuesto a que la mayoria no usa esa resolucion.  

los  Captchas indecifrables. no me opongo a los Captchas pero hay algunos que son indescifrables y esos no deberían existir.

Gracias , todos los errores solucionados.