Ciao, ti allego un codice di esempio che dovrebbe funzionare:
Process.Start("notepad.exe")
Dim Trovato As Boolean
Dim temp As Process()
temp = Process.GetProcesses()
Dim x As Integer
Do While Trovato = False
For x = 0 To temp.Length - 1
TextBox1.Text &= x & ": " & temp(x).ProcessName & vbCrLf
If temp(x).ProcessName = "notepad" Then
Trovato = True 'rendi visibile/invisibile la label che ti interessa
Exit For
End If
If x = temp.Length - 1 Then x = 0
Next
Loop
E' la passione che genera il progresso :-)