Visual Basic - Graficas

Necesito ayuda para realizar unas graficas, gracias de antemano al que me ofrezca su ayuda....

El problema es el siguiente, la grafica debe cambiar en funcion del tiempo, me explico, la ecuacion a graficar seria Y=cos(x)*t donde t seria el tiempo en segundos, que al presionar un boton por ejemplo empezara a correr desde cero hasta un tiempo maximo, a su vez la grafica debe cambiar para cada t correspondiente, normalmente hago las graficas dibujando lineas en un PictureBox, pero cualquier otro codigo se les agradece.

Saludos.....

nunca he hecho algo así, pero supuestamente lo que te colocaré grafica "bien" el coseno

necesitas un PictureBox y un Command

-------------------
Private Sub Command1_Click()
Dim c As Single

For c = -7 To 7 Step 0.01
Picture1.PSet (c * 1000, 1500 - Cos(c) * 1000)
Next

End Sub
-------------------

es interesante esto, usalo y saca muchos valores en calculadora para probar si hace el gráfico bien, de todos modos siempre hay que hacer gráficos manuales para comprobar por si acaso

Necesito sabes, como pongo los porcentaje en las barras.

aqui está un buen programa, tienes la mayor parte del problema resuelto

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=6927&lngWId=1

MUCHAS GRACIAS por tu ayuda equis, no es exactamente lo que yo estaba buscando, pero me abrio la mente, aqui esta lo que hice:
'//////////////////////////////////////////////
'Controles en el Form:
'picGraph(PictureBox)
'Timer1(Timer)
Text1(TexBox)
'////////////////////////////////////////////

'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Dim T As Single
'---------------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
'---------------------------------------------------------------------------------------------------------------

Private Sub Text1_Change()
'T = Text1.Text
Graficar
End Sub
'---------------------------------------------------------------------------------------------------------------

Private Sub Timer1_Timer()
T = T + 1
Text1.Text = T
End Sub
'---------------------------------------------------------------------------------------------------------------

Private Function F(X As Single) As Single
F = T * Cos(X)
End Function
'---------------------------------------------------------------------------------------------------------------
Private Sub Graficar()
Dim X As Single, Xmin As Single, Xmax As Single, _
Ymin As Single, Ymax As Single
Xmin = -10
Xmax = 10
Ymin = -10
Ymax = 10
picGraph.Scale (Xmin, Ymax)-(Xmax, Ymin)
' Graficar los ejes
picGraph.Cls
picGraph.Line (0, Ymin)-(0, Ymax)
picGraph.Line (Xmin, 0)-(Xmax, 0)

' Graficar la función
picGraph.PSet (Xmin, F(Xmin)) ' inicio

For X = Xmin To Xmax Step (Xmax - Xmin) / 100
picGraph.Line -(X, F(X)), vbBlue
Next

End Sub
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////