Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        Dim junk As ZedGraph.ZedGraphControl
        junk = ZedGraphControl2
        junk.GraphPane.Title = "Test Case for VB"
        junk.IsShowPointValues = True
        Dim x(100) As Double
        Dim y(100) As Double
        Dim i As Integer
        Randomize()
        For i = 1 To 100
            x(i) = i / 100 * 6.3
            y(i) = Math.Sin(x(i))
        Next
 
        junk.GraphPane.AddCurve("Sine Wave", x, y, Color.Blue, _
          ZedGraph.SymbolType.XCross)
        junk.GraphPane.AxisFill = New ZedGraph.Fill(Color.White, _
        Color.LightGoldenrodYellow)
        junk.AxisChange()
    End Sub
End Class