Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("C:\windows\system32\taskmgr.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.nomeprocesso = Me.TextBox1.Text.ToString
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim processi() As Process
Dim processo As Process
processi = Process.GetProcesses
For Each processo In processi
cbProcess.Items.Add((processo.ProcessName.ToString))
Next
End Sub
Private Sub cbProcess_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbProcess.SelectedIndexChanged
Me.TextBox1.Text = cbProcess.SelectedItem.ToString
End Sub
End Class