Well, it just so happens that you are in luck because I am quite a moderate programmer in VB ;) but no code? Spoil sport…
Well, first off, loops on a computer go by nearly 1000x faster than on the calculator, so you DON'T want an infinite loop (it'll crash your program and there is no ON button, unless you use the task manager). I'll make the loop go through 100 times and make it a For loop so you can easily change it. Also, instead of "Disp N", I'll add the result to a ListBox.
NOTE: This paragraph is supposing you're not using VB 2008/2010 Express and haven't made a project before.
Using Visual Basic 2010 Express, after creating a new Windows Forms Project, add a button and a listbox. You can should rename them, but I'll keep them with default names for simplicity. Align them and resize them to whatever you want. Double click the button to bring up the code view and sub handler for the button's Click event.
Now for the nitty gritty. We see that you have 3 total variables. You're going to want to declare them and set their values. Now, there is no need for the labels, because there are none in VB (technically). Let's use a For loop and do something like "For pass = 1 To 100". This will go through the loop 100x. inside the loop, place your equation. However, instead of "N+…->N", in VB you can do "N += (P)(4/K)" or "N = N + (P)(4/K)", they're the same thing. P would be in the same format, but to optimize it you can do "P = -P". I'll let you figure out K by yourself. Now, instead of "Disp N", we're going to add it to the listbox, which would be "ListBox1.Items.Add(N)".
That should get you what you want. If you need the full translation or help with it more, I can help with that too.