... Then Ret = PostMessage(hwnd, &H10, 0, 0) If Ret = Then MsgBox "Khong the tat chuong trinh " & TenTienTrinh, vbExclamation, "Warning" Else MsgBox "Da tat chuong trinh " & TenTienTrinh, vbInformation, ... lstTientrinh.ColumnHeaders.Add , , "Processes" lstTientrinh.ColumnHeaders.Item(1).Width = 500 lstTientrinh.ColumnHeaders.Item(2).Width = lstTientrinh.Width - 400 HwndHienTai = GetWindow(frmShowProcess.hwnd, GW_HWNDFIRST)...