Apparently I can!
Function KillShell(sh As Shell) As Integer
Declare Function TerminateProcess Lib "Kernel32" (ProcessHandle As Integer, ExitCode As Integer) As Boolean
Declare Function GetLastError Lib "Kernel32" () As Integer
If TerminateProcess(sh.PID, 0) Then
Return GetLastError()
End If
End Function