在VB（Visual Basic）中检查自己的程序是否正在运行，可以采用以下几种方法：
方法一：使用DDE防止多个实例运行
你可以使用DDE（动态数据交换）来防止程序多个实例的运行，并在程序启动时检查是否已经有一个实例在运行。以下是一个示例代码：
```vb
Private Sub Form_Load（）
If App.PrevInstance Then
End
End If
End Sub
```
方法二：使用调试窗口
VB提供了三种调试窗口：本地窗口、立即窗口和监视窗口。你可以使用这些窗口来检查程序中的变量和表达式的值。
本地窗口：
用于显示当前过程所有局部变量的当前值。
监视窗口：
用于查看指定表达式的值。你可以使用“调试”菜单中的“添加监视”命令指定或修改“监视表达式”。
立即窗口：
用于显示当前过程中的有关信息。
方法三：使用WMI查询
你可以使用VBScript中的WMI（Windows管理信息）来获取正在运行的进程列表，并检查你的程序是否在列表中。以下是一个示例代码：
```vb
Set objWMIService = GetObject（"winmgmts:\.\root\cimv2"）
Set colProcesses = objWMIService.ExecQuery（"SELECT * FROM Win32_Process"）
For Each objProcess in colProcesses
WScript.Echo "Process Name: " & objProcess.Name
WScript.Echo "Process ID: " & objProcess.ProcessID
Next
```
方法四：检查特定进程是否运行
你可以编写一个函数来检查特定进程是否正在运行。以下是一个示例代码：
```vb
Private Function CheckExeIsRun（exeName As String） As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckExeIsRun = False
Set WMI = GetObject（"WinMgmts:"）
Set Objs = WMI.InstancesOf（"Win32_Process"）
For Each Obj In Objs
If （InStr（UCase（exeName）, UCase（Obj.Description）） > 0） Then
CheckExeIsRun = True
Exit For
End If
Next
Set Objs = Nothing
Set WMI = Nothing
Exit Function
Err:
CheckExeIsRun = False
End Function
```
你可以调用这个函数来检查你的程序是否正在运行，例如：
```vb
If CheckExeIsRun（"VB6.EXE"） Then
MsgBox "存在"
Else
MsgBox "不存在"
End If
```
方法五：获取程序运行的命令行
你可以获取程序运行的命令行，以检查父进程或特定参数。以下是一个示例代码：
```vb
Dim cmdLine As String
cmdLine = Command.CommandLine
MsgBox cmdLine
```
通过这些方法，你可以在VB中有效地检查自己的程序是否正在运行。选择哪种方法取决于你的具体需求和偏好。