no te dibuja nada por que toma como cooredenada la x e y justo donde clickeaste, esto hace que dibuje un punto , y como el DrawWidth es muy pequeño ( valor 1 ), el punto no se ve ( aunque si lo dibuja ).
Probá esto con valor 5 y vas aver que el punto si se dibuja
Código:
Private Sub Form_Load()
Picture7(0).DrawWidth = 5
End Sub
Private Sub Picture7_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture7(0).CurrentX = X
Picture7(0).CurrentY = Y
Picture7(0).Line -(X, Y), vbBlue 'aun no funciona el color
End If
End Sub
Para dibujar una línea, chequea las cooredenadas x/y
por ejemplo esto dibuja una linea donde clikeaste, pero el x siempre en 0
Código:
Private Sub Picture7_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture7(0).Cls
Picture7(0).CurrentX = X
Picture7(0).CurrentY = Y
Picture7(0).Line -(0, Y), vbBlue
End If
End Sub
saludos