Рисование средствами WinApi

[maksim_serg]

Добрый день. рисую на форме две линии: вертикальную и горизонтальную.
Почему на одних компьютерах видно обе линии, а на других только горизонтальную?

...
Public Sub DrawLineColor(hdc, color, x1, y1, x2, y2)
    Dim hRPen As Long
    hRPen = CreatePen(PS_SOLID, 1, vbBlack)
    SelectObject hdc, hRPen
    
    Call dwMoveTo(hdc, x1, y1, 0)
    Call dwLineTo(hdc, x2, y2)
    
    DeleteObject (hRPen)
End Sub

Private Sub CommandButton1_Click()
    Me.Repaint
    DrawLineColor hdc, vbBlack, 50, 200, 450, 200
    DrawLineColor hdc, vbBlack, 200, 50, 200, 450
End Sub

Private Sub UserForm_Initialize()
    Dim hForm As Long
    hForm = FindWindow("ThunderDFrame", Me.Caption)
    hdc = dwGetDC(hForm)
End Sub

[maksim_serg]

Проблему решил:
не работает на ХР:

Public Sub DrawLineColor(hdc, color, x1, y1, x2, y2)

работает везде

Public Sub DrawLineColor(hdc, color, x1 as integer, y1 as integer, x2 as integer, y2 as integer)