... ThenMsgBox "Khong the tat chuong trinh " & TenTienTrinh, vbExclamation, "Warning"ElseMsgBox "Da tat chuong trinh " & TenTienTrinh, vbInformation, "Warning"End ... GetWindowTextLength Lib _"user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As LongPrivate Declare Function GetWindowText Lib "user32" _Alias "GetWindowTextA" (ByVal ... 1)TienTrinh = Left(TienTrinh, Len(TienTrinh) - 1)If Length <> 0 ThenIf Me.Caption <> TienTrinh ThenIf TienTrinh <> "taskmon" Theni = i + 1lstTientrinh.ListItems.Add(, , i).ListSubItems.Add...