Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo llamar al ejemplo vb6 del uso de la función SetPixel para dibujar una línea recta?

¿Cómo llamar al ejemplo vb6 del uso de la función SetPixel para dibujar una línea recta?

Opción Explícita

Función de declaración privada SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Subcomando privado1_Click ()

Atenuar x mientras

Para x = 10 a 500

SetPixel Form1.hdc, x, 10, vbRed

Fin Sub