請問在控制項上劃線的問題(編號：6523)

我想要在DataGrid上劃紅線,用了下面的碼
SelectObject(GetDC(DataGrid1.hWnd), CreatePen(PS_SOLID, 0, vbRed))
LineTo(GetDC(DataGrid1.hWnd), 100, 100)
可是卻只有劃出一條黑色的斜線,將DataGrid的DC換成Form的DC又可以成功,請問是哪裡出了問題?
又視窗重繪之後這條線會消失,要如何才能一直留住這條線呢?
謝謝您的回答...