Why will that work, but if I change it to this it doesn't print anything ?Code:Private Declare Function LineTo Lib "gdi32" _ (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Sub Form_Load() Me.AutoRedraw = True LineTo Me.hdc, 200, 200 End SubCode:Private Declare Function LineTo Lib "gdi32" _ (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Sub Form_Load() Me.AutoRedraw = True LineTo picture1.hdc, 200, 200 End Sub




Reply With Quote