Imports System.Diagnostics
Imports System.Runtime.InteropServices
 
Public Class Form1
 
    <DllImport("kernel32.dll")> _
    Private Shared Function AttachConsole(dwProcessId As Integer) As Boolean
 
    End Function
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
        Handles Button1.Click
        Dim pName As String = "cmd" 'ohne extension
        Dim p() As Process = _
            System.Diagnostics.Process.GetProcessesByName(pName)
        If p.Count = 0 Then
            MsgBox("Process not found.")
            Return
        End If
        Dim id = p(0).Id
        AttachConsole(id)
        Console.Write("Stop" & vbCrLf)
    End Sub
 
End Class