Option Explicit
Dim X0 As Integer
Dim X1 As Integer
Dim X As Single
Dim Y As Single
Dim c
Dim PosX As Integer
Dim PosY As Integer
Private Sub cmdDibujar_Click()
PosX = 0
PosY = Picture1.Height / 2
X0 = Val(lblX0)
X1 = Val(lblX1)
c = 1
If X0 = 0 Then X0 = 1
Picture1.DrawWidth = 2
For X = X0 To X1 Step c
Y = -Y * 4: Y = Y / Picture1.Width + PosY: PosX = X + (Picture1.Width / 2)
Picture1.PSet (1 + PosX, 1 + Y)
Next X
End Sub

Private Sub Form_Activate()
Picture1.DrawWidth = 1
Picture1.Line (0, Picture1.Height / 2)-(Picture1.Width, Picture1.Height / 2)
Picture1.Line (Picture1.Width / 2, 0)-(Picture1.Width / 2, Picture1.Height)
End Sub

Private Sub HSX1_Change()
lblX1 = HSX1.Value
End Sub

Private Sub HSX0_Change()
lblX0 = HSX0.Value
End Sub

Option Explicit
Dim X As Integer    'Declaro X
Dim Y As Integer    'Declaro Y
Dim X1 As Integer   'Declaro X1
Dim Y1 As Integer   'Declaro Y1
Dim PosX As Integer 'Declaro PosX que es la posición central de izquierda derecha
Dim PosY As Integer 'Declaro PosY que es la posición central de arriva a abajo
Private Sub Command1_Click()
On Error Resume Next
PosX = Picture1.Width / 2
PosY = Picture1.Height / 2
X = Text1.Text
X1 = Text2.Text
Y = Label1.Caption
Y1 = Label2.Caption
Picture1.PSet (Picture1.Width / 2 + X, Picture1.Height / 2 + Y)   'Situa un punto en la coordenada dada en el textbox de X
Picture1.PSet (Picture1.Width / 2 + X1, Picture1.Height / 2 + Y1) 'Situa un punto en la coordenada dada en el textbox de X1
End Sub
Private Sub Command2_Click() 'Boton para trazar las lineas
Picture1.Line (Picture1.Width / 2 + X, Picture1.Height / 2 + Y)-(Picture1.Width / 2 + X1, Picture1.Height / 2 + Y1)
Picture1.Line (Picture1.Width / 2 + 0, Picture1.Height / 2 + 0)-(Picture1.Width / 2 + X1, Picture1.Height / 2 + Y1)
End Sub
Private Sub Form_Activate() 'Dibuja dos lineas centrales
Picture1.DrawWidth = 1
Picture1.Line (0, Picture1.Height / 2)-(Picture1.Width, Picture1.Height / 2)
Picture1.Line (Picture1.Width / 2, 0)-(Picture1.Width / 2, Picture1.Height)
End Sub
Private Sub Form_Load()
Combo1.AddItem "Funcion Lineal" 'Da opciones de que tipo de formula se quiere
Combo1.AddItem "Funcion Linea Parabolica"
List1.AddItem "Ej: Y = pendiente * 5 + 17: Lineal"             'Te enseña que tipo de formula hay
List1.AddItem "Ej: Y = X ^ 2                     : Parabolica"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) 'Corresponde a X
If KeyAscii = 13 Then 'Si en la caja de texto se presiona enter...
X = Text1.Text
If Combo1.Text = "Funcion Lineal" Then  'Si queres la funcion Lineal
Label1.Caption = Text3.Text * X + Text4.Text  'La ecuación que hace es Y = X * 4
End If
If Combo1.Text = "Funcion Linea Parabolica" Then 'Si queres la funcion de linea parabolica
Label1.Caption = X ^ 2 'La ecuacion que hace es Y = X ^ 2
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) 'Idem a el Text1 pero con el X1
If KeyAscii = 13 Then
X1 = Text2.Text
If Combo1.Text = "Funcion Lineal" Then
Label2.Caption = Text3.Text * X1 + Text4.Text
End If
If Combo1.Text = "Funcion Linea Parabolica" Then
Label2.Caption = X1 ^ 2
End If
End If
End Sub