

Private Sub Command1_Click() msgBox "Hello, World!" End Sub






For Each Process As Process In Process.GetProcessesByName("BlackOpsMP")
Dim p As Process() = Process.GetProcessesByName("BlackOpsMP")
If Not p.Length = 0 Then 'If there then continue
Process.PriorityClass = ProcessPriorityClass.High
Else
MessageBox.Show("Black Ops is not running. Please start it and run again!", "Error") 'Else give error
End If