click event handler
of it and do the following code for creating a sequence of Fibonacci Numbers.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim input = InputBox(“Enter The Terms”) Dim a As Integer = 0 Dim b As Integer = 1 Dim c As Integer Dim i As Integer ListBox1.Items.Clear() ListBox1.Items.Add(“Fibonacci Series is : ”) For i = 1 To input - 2 c = a + b a = b b = c ListBox1.Items.Add(c) Next End Sub