在Visual Basic 6中关闭进程的方法是使用Win32 API函数TerminateProcess。下面是一个示例代码：

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Sub KillProcess(ByVal processName As String)
    Dim processId As Long
    Dim hProcess As Long
    
    ' 获取进程ID
    processId = Shell(processName, vbNormalFocus)
    
    If processId <> 0 Then
        ' 打开进程句柄
        hProcess = OpenProcess(&H1F0FFF, False, processId)
        
        If hProcess <> 0 Then
            ' 关闭进程
            TerminateProcess hProcess, 0
        End If
    End If
End Sub

使用这个示例代码，你可以通过调用KillProcess函数来关闭指定名称的进程。例如，如果要关闭名为"notepad.exe"的进程，可以使用以下代码：

KillProcess "notepad.exe"

请注意，使用TerminateProcess函数关闭进程将立即终止进程，可能导致数据丢失或其他问题。因此，在调用TerminateProcess之前，请确保你已经保存了进程中的所有重要数据。