Какая API Рисует линию?
Можно кодом... плз.
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long) As Long
Private Sub Form_Load()
Dim dc As Long
dc = GetWindowDC(Form1.hwnd)
LineTo dc, 100, 10
ReleaseDC Command1.hwnd, dc
End sub
Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 3