Dim $p[2][2]=[[50,230],[400,21]]

$hGUI = GUICreate("Line", 500, 500)
GUISetState()
$dc = GetDC($hGUI)

For $x = $p[($p[1][0]<$p[0][0])][0] To $p[($p[1][0]>$p[0][0])][0]
	DllCall("gdi32.dll","long","SetPixel","long",$dc,"long",$x,"long",(($p[1][1]-$p[0][1])/($p[1][0]-$p[0][0]))*($x-$p[0][0])+$p[0][1],"long",0)
Next

While GUIGetMsg()<>-3 And Sleep(10)
WEnd

Func GetDC($handle)
    $aRet = DllCall("user32.dll", "int", "GetDC", "hwnd", $handle)
    Return $aRet[0]
EndFunc   ;==>GetDC