перебрать все CheckBox

[Alex_ST]

ну, Option Explicit, кажется должна быть первой декларацией модуля...
А если речь пошла уже про

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

то тут я пас. Это колдовство и я его не понимаю.
В общем, похоже, что проблема у вас не в "цветовой дифференциации штанов" (ну, в смысле чекбоксов), а выше.

[doober]

попробуйте так

Private Sub CommandButton2_Click()
For i = 1 To 2
Dim M_Check

Set M_Check = Me.Shapes("CheckBox" & i).DrawingObject.Object


If M_Check.Value = True Then

    pid = Shell("ping " + M_Check.Caption, 0)
 hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
 If hProcess <> 0 Then
    Do
        GetExitCodeProcess hProcess, exit_code
        DoEvents
    Loop Until exit_code <> STILL_ACTIVE
    CloseHandle hProcess
 End If
 If exit_code = 0 Then
'CheckBox1.BackColor = &H80FF80
M_Check.BackColor = &H80FF80
 Else
M_Check.BackColor = &H8080FF
End If
Else
M_Check.BackColor = &HFFFFFF
End If

Next
End Sub