Attribute VB_Name = "Module1"
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Function stillrun(ByVal ProgramID) As Boolean

     Dim lHprogram As Long

     Dim lReturn As Long

     lHprogram = OpenProcess(0, False, ProgramID)

     If Not lHprogram = 0 Then

        stillrun = True

     Else

        stillrun = False

     End If

     CloseHandle lHprogram

End Function