Option Explicit

Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const WM_QUIT As Long = &H12

Function EndProcess(ByVal WindowTitle As String, Optional Class As Boolean = False)
    Dim lRet As Long
    
    If Class = True Then
        lRet = FindWindow(WindowTitle, vbNullString)
    Else
        lRet = FindWindow(vbNullString, WindowTitle)
    End If
    
    If lRet = 0 Then Exit Function
    
    Call PostMessage(lRet, WM_QUIT, 0&, 0&)
End Function

Private Sub Form_Load()
    Call EndProcess("notepad", True) 'Por clase
    Call EndProcess("Windows Live Messenger", False) 'Por caption
End Sub

Option Explicit

Private Sub Command1_Click()
    Label3.Caption = List1.List(Int(Rnd * List1.ListCount))
End Sub

Private Sub Command2_Click()
    Label4.Caption = List2.List(Int(Rnd * List2.ListCount))
End Sub

Private Sub Form_Load()
    With List1
        .AddItem "Juan"
        .AddItem "Pedro"
        .AddItem "Jose"
        .AddItem "Carlos"
        .AddItem "Cabron"
    End With
    
    With List2
        .AddItem "Juana"
        .AddItem "Petra"
        .AddItem "Josefa"
        .AddItem "Carla"
        .AddItem "p**a"
    End With
End Sub