First off, here is the TI-BASIC code:
0→U:→V:0→A:0→B AxesOff:ZStandard Repeat K=45 getKey→K U+.1((K=26)-(K=24)→U V-.04+.15((K=25)-(K=34))→V If 10<abs(A+U) -.7U→U If B+V<-10 -.7V→V If B+V>10 -.7V→V A+U→A B+V→B Pt-Off(A-U,B-V,2) Pt-On(A,B,2) End
Now let me explain a bit.
Instead of a point (obviously kind of hard in VB), I am using a 10x10 label. For looping, I am using a timer. For getKey, I am using MyBase.KeyDown. And no, I am not stupid, I DO know some Visual Basic ;) i have used all of the proper "Dim A As Integer = 0, B As Integer = 0, U As Integer = 0, V As Integer = 0" and I know that "A+U→A" is "A = A + U". And for KeyDown I am doing
Select Case e.KeyCodes Case Keys.[key] [do stuff] etc.
I have tried converting that bit of code from TI-BASIC into VB.NET, but whenever I debug the program, the label only moves if you press the right arrow, and even then it moves out of the form before you can tell what happened.