Option Explicit
Dim ejex As Integer
Dim ejey As String
Private Sub Form_Load()
Picture1.DrawWidth = 3
End Sub
Private Sub Command1_Click()
ejey = Text1.Text
If IsNumeric(ejey) Then 'Si el valor recibido es un valor numerico entonces...
ejex = ejex + 50 'Autoincrementar posicion X
Picture1.PSet (ejex, Picture1.Height / 2 - CSng(ejey * 20)), vbRed 'Dibujar punto en 'la grafica
End If
End Sub