Camlorn,
  This forum is for sharing opinions, thus you have the right to do so. In your opinion, and the opinions of others you've talked to, pure basic is, um, questionable in quality.

  One of the main reasons I don't use c++ is because of it's complexity.
  And yes, pure basic is more along the lines of a scripting language/programming language, and I've seen c++ code and didn't know what the heck to do with it. I'm sure you know more about programming than me, since you are in college and all, which is why you know a lot of programming languages. However, pb is easy for me to understand, and can do things well beyond the scope of what I need it for, so I don't see the point of learning c++, or pithon at this time.

I personally am a fan of pure basic. Here's what I say. You pick whatever language suits you. Though's who have been following me and my games know I switched from bgt because I found I was rappidly out growing it. In fact if I hadn't switched to pb, a lot of the features you see in snow race and death match: project alpha wouldn't have even been their to begin with, but that's my personal choice. I still say bgt is a grate starting place if your new to audio game creation and you want to create games. And @camlorn, pure basic has changed a lot since you last used it. Its up to version 5 now, and they have added a lot of new features and made the language more stable. And I have coded in visual basic, though wasn't a fan of that stile of basic at all.

I can see why people would like PureBasic (love the name--pure, as in not like that awful old BBc Basic you might have remembered), just like I can see why people liked Delphi or FreePascal; it's a nicer wrapper to the APIs than most mainstream languages, and it's arguably the end result that matters. Still, yeah, I'm with those in favour of investing your intellect elsewhere, closer to the mainstream, or to home. I'm personally of the old-school and think that "Modern" language features are just bloat with no good justification, but each to his own. If you've got to be realistic about it, use a language that gives you what you need, and gives you a chance of further programming work in the future; whatever you pick will give you experience, and there's nothing like trying to do something useful with it to test its utility. Me? ANSI/ISO C for portable code, with Tcl for a hosted scripting environment. Never fails, but hardly suitable for a newbie, and barely suitable to audiogame development, so probably not the best choice for that unless you want to boil all your eggs at once.

I would like that. I've used python, c++, visual basic 6, visual basic.net, pure basic, bgt, html, php, javascript and lua for a variety of purposes. There isn't really one defined programming language used to solve all purposes. I wasn't trying to convert anyone to a language of choice. I am currently using python, which I noticed to be simple and easy to learn, so I mentioned that aspect of it. One problem with python is the line indentation, which I still find kind of annoying.

I agree the licensing fee for bgt was incredibly high. I don't think there's anything wrong with paying for a language, I was just mentioning free alternatives.

Sorry about the vb6 thing, I was thinking of another person with a similar name.

My personal philosophy has always been to go with whichever language you want to, as I often find that people have a predefined set of standards they will rigidly stick to. I've always found this a problem within the programming community. Everyone seems to have a widely differing viewpoint. Just use what you want for any purpose, but take suggestions under advisement.

I tried Pure Basic sometime last year, perhaps last summer, and had mixed opinions about it. Keep in mind that I am a fully trained and fully qualified C++ programmer so coming from my background and training Pure Basic was in certain ways a bit of a step down so to speak. That said, I can fully see why it is becoming popular among newbies, people who just can't grasp lower level languages like C or C++, because from the demo Pure Basic seems to be fairly simple and easy to learn, has a lot a power for a Basic language, and is of course cross-platform. I also noticed they were beginning to come out with tools like a simple but functional visual designer all which is useful for a newbie.

While I would not personally choose to use Pure Basic for my own game projects I can not come up with any reason why someone else couldn't based on my personal experiences which are fairly limited in scope. However, that isn't the important thing to keep in mind here. In my experience both developing accessible games as well as a few products for the mainstream public end users don't care how you make the product. All they care about is if it is stable, works well, and the performance is acceptable on their PC. They could really care less what language you use so long as it works.

Put another way when someone buys an automobile from a dealer they probably don't care about what makes the wheels turn as long as the car or truck gets them from point a to point b. Its only the mechanics who will argue about the technical specifications of the engine, the gearing, and other aspects of how the car works.

So seen from that perspective my feeling about programming is as long as it works, can make a decent product, its okay to use. Do what works best for you, and don't worry about what other developers think, because ultimately every language has pros and cons. A lot of times there is no absolutely right answer, but only opinions formed by end user experiences and of course personal preferences. So for that reason I am not going to get into the old debate of language x is better or worse than language y.

As far as Python and line indention goes I can see why many blind newbies don't like it, but the fact of the matter is you should properly indent your code regardless of what language is being used.  One reason is if you wish to collaborate with a sighted programmer he or she will not be easily able to follow your code without the proper formatting. If you try and get a job with a company either for full time or as a contractor they will demand that the code is properly formatted. If you ever have a chance to use a braille display and can follow along with the code in braille the reasons for proper formatting will become immediately clear to you. For all those reasons it is a good idea to get in the habit of properly formatting your code anyway even if it doesn't seem that important to you now.

What I like about Python is that it forces people to adopt those standards from the get-go, and even the laziest coders have to do it or else. For those coders like me who have been coding for years and know how to properly format code it serves as good practice, keeps us in the habit, so if we are called upon to write a program in C++, Java, or some other language we will automatically format weather formatting is required or not. People who are new to programming, haven't already been formatting for years, will likely find it a bit irritating until it becomes second nature to them. Especially, when that newbie is blind and the formatting has no immediate value to him/her since they can't see it.

No, I didn't just ditch bgt because of its serialization. I gave it up simpply because I found some of the things I wanted to do in it wern't possible at least for me, i'm not saying for everyone. And grafics was only a very small part of that reason. But I do agree with everyone here. Its your choice, whatever programming language you use, whatever works for you. While we are on the subject of c++, I gave it ago but found it to be too complex for me. The same isn't true for visual basic 6, in fact I managed to develop quite a few test apps with it, but after a while I just couldn't stand the language itself and whent back to pb.

Hi all,
I just looked at PureBasic, because I have some ideas that are not games that I'd like to make, especially for Mac. I know that I can't publish my PB apps to the store, but I'd just make them freely available on my website.
The problem I have is, do we really have to create forms (windows) manually when the sighted have it easier with the form designer? Heck, I have issues with visualizing levels when I want to design something in BGT. Plus, Dannie, do you use the PB IDE or do you just write it Notepad? A lot of the features in the app I could see like goto is great but what about syntax hi lighting, etc? a ton of those features I don't think would be useful. True, screen readers can speak colors of a word but does that help in this instance?
Ah, I love the "Show_game_window" function in BGT because I don't have to worry about a window size. I took a Visual Basic class online once and the teacher couldn't even find an alternative way to create the window for his first program, so he's said something along the lines of "Figure it out and get back to me." Gosh I hate that. It was the same thing with my last computer teacher, but yeah. Don't give me the answer but give me a goal with little help if its pretty obvious I'm struggling or if I ask for it.
How does a blind person create Windows for GUIs using the editor? If BGT had an IDE I'm pretty sure a ton of people would be using it and Philip would still be asking for money.

@Ethin, I completely agree. You got a thumbs up

@Orin, as far as I know, the function you'd best want to use for games would be open screen, and it'd be like this:

InitSprite()
OpenScreen(640, 480, 16, "screen name")

  As for windows, you will need sighted assistance with that. You don't nesesarily have to use the visual form designer, you can design it with code.

Here is the documentation entry for OpenScreen:
OpenScreen()
Syntax
Result = OpenScreen(Width, Height, Depth, Title$ [, FlipMode [, RefreshRate]])
Description
Opens a new screen according to the specified 'Width', 'Height' and 'Depth'. InitSprite() has to be called successfully before using this command. The opened screen is created with 2 video buffers to allow double buffering, especially useful for games. The buffers can be manipulated with the FlipBuffers() function.
Parameters
Width, Height
The screen resolution, in pixels. The specified resolution has to be supported or the screen won't be created. ExamineScreenModes() can be used to get a full list of supported resolution.
Depth
It can be one of the following values:
  16: 65000 colors, fixed palette
  24: 16 Mo colors, fixed palette
  32: 16 Mo colors, faster than 24-bit mode, allows alpha blending
Title$
The title for the application which will be displayed when switching back to the desktop. (Windows only). It will be displayed in the taskbar, so it's recommended to use a title related to the application name.
FlipMode (optional)
Sets the screen synchronization methods used when flipping buffers (also known as 'Vertical blank synchronization'). It can have one of the following values:
   #PB_Screen_NoSynchronization   : disable synchronization
   #PB_Screen_WaitSynchronization : enable synchronization (default value)
   #PB_Screen_SmartSynchronization: enable synchronization, with a CPU saver routine when the program doesn't consume
                                    all the CPU time (full screen mode only)
Waiting for the screen synchronization allows the flip to be perfect (no 'tearing' or other visible artifacts) because the flip is performed when the screen has been fully drawn (and when the screen spot is outside of visible screen area). This also link the flip frequence to the actual screen refresh, ie: for 60Hz screen it could have at most 60 flip per seconds, etc.
RefreshRate (optional)
Set the refresh rate (in Hz) for the new screen. If it can't be handled, then OpenScreen() will fail. ExamineScreenModes() can be used to get a full list of supported refresh rates.
Note: on Windows, the refresh rate could be locked or forced by the video card drivers, so it could be inaccurate.
Return value
Nonzero if the screen has been successfully opened, zero otherwise.
Remarks
The Requester functions cannot be used on screens created with OpenScreen.

To open a screen area on a regular window, see OpenWindowedScreen().
See Also
OpenWindowedScreen(), FlipBuffers()
Supported OS
All
I could print the docs for OpenWindowedScreen(), but I don't want to.

Hi,
PB 5.2 and up has a Dialog library that allows you to open windows and add controls via an xml file. The xml library can be used to generate this xml file in memory, on the fly.

Rob

@ Stewie, I don't like .NET because it can be easily disassembled. For instance, I built a registration system in VB.NET, and I am able to disassemble it with the following command:
C:\Users\Ethin\Documents\Visual Studio 2013\Projects\RGAUI\RGAUI\bin\Debug>ildasm rgaui.exe
Of course, I can obfuscate the code, but obfuscators cost lots of money, and its just not worth it. Plus, MSIL is very easy to read.
Example: keyrwzrd : void():
.method private instance void  keyrwzrd() cil managed
{
  // Code size       548 (0x224)
  .maxstack  5
  .locals init ([0] valuetype [System.Windows.Forms]System.Windows.Forms.DialogResult correct,
           [1] string email,
           [2] class [mscorlib]System.Random Generator,
           [3] string name,
           [4] string oldkey,
           [5] string oldpidn,
           [6] string phone,
           [7] int32 pidn,
           [8] string pnames,
           [9] string[] VB$t_array$S0,
           [10] bool VB$CG$t_bool$S0)
  IL_0000:  nop
  IL_0001:  newobj     instance void [mscorlib]System.Random::.ctor()
  IL_0006:  stloc.2
  IL_0007:  ldloc.2
  IL_0008:  ldc.i4     0x3e8
  IL_000d:  ldc.i4     0x270f
  IL_0012:  callvirt   instance int32 [mscorlib]System.Random::Next(int32,
                                                                    int32)
  IL_0017:  stloc.s    pidn
  IL_0019:  ldstr      "Enter the name of the person who the product will "
  + "be registered to: "
  IL_001e:  ldstr      "Key Replacement Request Wizard"
  IL_0023:  ldstr      ""
  IL_0028:  ldc.i4.m1
  IL_0029:  ldc.i4.m1
  IL_002a:  call       string [Microsoft.VisualBasic]Microsoft.VisualBasic.Interaction::InputBox(string,
                                                                                                 string,
                                                                                                 string,
                                                                                                 int32,
                                                                                                 int32)
  IL_002f:  stloc.3
  IL_0030:  ldstr      "If available, enter your old product key. It must "
  + "be exactly as was given in your email that was sent to you upon complet"
  + "ion of your order, and must match the registration name entered and the"
  + " PIDN given to you at the start of this order. Note that, if you do not"
  + " enter your old product key, a new one will have to be generated, despi"
  + "te the name entered here, even if it is in our records, and may delay t"
  + "he generation and transmission of your product key."
  IL_0035:  ldstr      "Key Replacement Request Wizard"
  IL_003a:  ldstr      ""
  IL_003f:  ldc.i4.m1
  IL_0040:  ldc.i4.m1
  IL_0041:  call       string [Microsoft.VisualBasic]Microsoft.VisualBasic.Interaction::InputBox(string,
                                                                                                 string,
                                                                                                 string,
                                                                                                 int32,
                                                                                                 int32)
  IL_0046:  stloc.s    oldkey
  IL_0048:  ldstr      "If applicable, enter the old four digit PIDN that "
  + "was used when you last ordered this product."
  IL_004d:  ldstr      "Key Replacement Request Wizard"
  IL_0052:  ldstr      ""
  IL_0057:  ldc.i4.m1
  IL_0058:  ldc.i4.m1
  IL_0059:  call       string [Microsoft.VisualBasic]Microsoft.VisualBasic.Interaction::InputBox(string,
                                                                                                 string,
                                                                                                 string,
                                                                                                 int32,
                                                                                                 int32)
  IL_005e:  stloc.s    oldpidn
  IL_0060:  ldstr      "Enter a telephone number in case we need to contac"
  + "t you: "
  IL_0065:  ldstr      "Key Replacement Request Wizard"
  IL_006a:  ldstr      ""
  IL_006f:  ldc.i4.m1
  IL_0070:  ldc.i4.m1
  IL_0071:  call       string [Microsoft.VisualBasic]Microsoft.VisualBasic.Interaction::InputBox(string,
                                                                                                 string,
                                                                                                 string,
                                                                                                 int32,
                                                                                                 int32)
  IL_0076:  stloc.s    phone
  IL_0078:  ldstr      "Enter your e-mail address."
  IL_007d:  ldstr      "Key Replacement Request Wizard"
  IL_0082:  ldstr      ""
  IL_0087:  ldc.i4.m1
  IL_0088:  ldc.i4.m1
  IL_0089:  call       string [Microsoft.VisualBasic]Microsoft.VisualBasic.Interaction::InputBox(string,
                                                                                                 string,
                                                                                                 string,
                                                                                                 int32,
                                                                                                 int32)
  IL_008e:  stloc.1
  IL_008f:  ldstr      "Enter the product names that you wish to order, e."
  + "g.: Snow Race. Separate them with commas: "
  IL_0094:  ldstr      "Key Replacement Request Wizard"
  IL_0099:  ldstr      ""
  IL_009e:  ldc.i4.m1
  IL_009f:  ldc.i4.m1
  IL_00a0:  call       string [Microsoft.VisualBasic]Microsoft.VisualBasic.Interaction::InputBox(string,
                                                                                                 string,
                                                                                                 string,
                                                                                                 int32,
                                                                                                 int32)
  IL_00a5:  stloc.s    pnames
  IL_00a7:  ldc.i4.s   15
  IL_00a9:  newarr     [mscorlib]System.String
  IL_00ae:  stloc.s    VB$t_array$S0
  IL_00b0:  ldloc.s    VB$t_array$S0
  IL_00b2:  ldc.i4.0
  IL_00b3:  ldstr      "Is this information correct\? \r\nKey replacement req"
  + "uest\r\nRegistered user: \r\n"
  IL_00b8:  stelem.ref
  IL_00b9:  nop
  IL_00ba:  ldloc.s    VB$t_array$S0
  IL_00bc:  ldc.i4.1
  IL_00bd:  ldloc.3
  IL_00be:  stelem.ref
  IL_00bf:  nop
  IL_00c0:  ldloc.s    VB$t_array$S0
  IL_00c2:  ldc.i4.2
  IL_00c3:  ldstr      "\r\nOld product key: \r\n"
  IL_00c8:  stelem.ref
  IL_00c9:  nop
  IL_00ca:  ldloc.s    VB$t_array$S0
  IL_00cc:  ldc.i4.3
  IL_00cd:  ldloc.s    oldkey
  IL_00cf:  stelem.ref
  IL_00d0:  nop
  IL_00d1:  ldloc.s    VB$t_array$S0
  IL_00d3:  ldc.i4.4
  IL_00d4:  ldstr      "\r\nOld PIDN: \r\n"
  IL_00d9:  stelem.ref
  IL_00da:  nop
  IL_00db:  ldloc.s    VB$t_array$S0
  IL_00dd:  ldc.i4.5
  IL_00de:  ldloc.s    oldpidn
  IL_00e0:  stelem.ref
  IL_00e1:  nop
  IL_00e2:  ldloc.s    VB$t_array$S0
  IL_00e4:  ldc.i4.6
  IL_00e5:  ldstr      "\r\nPhone number: \r\n"
  IL_00ea:  stelem.ref
  IL_00eb:  nop
  IL_00ec:  ldloc.s    VB$t_array$S0
  IL_00ee:  ldc.i4.7
  IL_00ef:  ldloc.s    phone
  IL_00f1:  stelem.ref
  IL_00f2:  nop
  IL_00f3:  ldloc.s    VB$t_array$S0
  IL_00f5:  ldc.i4.8
  IL_00f6:  ldstr      "\r\nEmail address: \r\n"
  IL_00fb:  stelem.ref
  IL_00fc:  nop
  IL_00fd:  ldloc.s    VB$t_array$S0
  IL_00ff:  ldc.i4.s   9
  IL_0101:  ldloc.1
  IL_0102:  stelem.ref
  IL_0103:  nop
  IL_0104:  ldloc.s    VB$t_array$S0
  IL_0106:  ldc.i4.s   10
  IL_0108:  ldstr      "\r\nProducts requested: \r\n"
  IL_010d:  stelem.ref
  IL_010e:  nop
  IL_010f:  ldloc.s    VB$t_array$S0
  IL_0111:  ldc.i4.s   11
  IL_0113:  ldloc.s    pnames
  IL_0115:  stelem.ref
  IL_0116:  nop
  IL_0117:  ldloc.s    VB$t_array$S0
  IL_0119:  ldc.i4.s   12
  IL_011b:  ldstr      "\r\nPIDN: \r\n"
  IL_0120:  stelem.ref
  IL_0121:  nop
  IL_0122:  ldloc.s    VB$t_array$S0
  IL_0124:  ldc.i4.s   13
  IL_0126:  ldloc.s    pidn
  IL_0128:  call       string [Microsoft.VisualBasic]Microsoft.VisualBasic.CompilerServices.Conversions::ToString(int32)
  IL_012d:  stelem.ref
  IL_012e:  nop
  IL_012f:  ldloc.s    VB$t_array$S0
  IL_0131:  ldc.i4.s   14
  IL_0133:  ldstr      "\r\nTo confirm this, click yes. Otherwise, click no "
  + "to start over again."
  IL_0138:  stelem.ref
  IL_0139:  nop
  IL_013a:  ldloc.s    VB$t_array$S0
  IL_013c:  call       string [mscorlib]System.String::Concat(string[])
  IL_0141:  ldstr      "Key Replacement Request Wizard"
  IL_0146:  ldc.i4.4
  IL_0147:  call       valuetype [System.Windows.Forms]System.Windows.Forms.DialogResult [System.Windows.Forms]System.Windows.Forms.MessageBox::Show(string,
                                                                                                                                                     string,
                                                                                                                                                     valuetype [System.Windows.Forms]System.Windows.Forms.MessageBoxButtons)
  IL_014c:  stloc.0
  IL_014d:  ldloc.0
  IL_014e:  ldc.i4.6
  IL_014f:  ceq
  IL_0151:  stloc.s    VB$CG$t_bool$S0
  IL_0153:  ldloc.s    VB$CG$t_bool$S0
  IL_0155:  brfalse    IL_0219
  IL_015a:  call       class RGAUI.My.MyComputer RGAUI.My.MyProject::get_Computer()
  IL_015f:  callvirt   instance class [Microsoft.VisualBasic]Microsoft.VisualBasic.MyServices.ClipboardProxy [Microsoft.VisualBasic]Microsoft.VisualBasic.Devices.Computer::get_Clipboard()
  IL_0164:  ldc.i4.s   15
  IL_0166:  newarr     [mscorlib]System.String
  IL_016b:  stloc.s    VB$t_array$S0
  IL_016d:  ldloc.s    VB$t_array$S0
  IL_016f:  ldc.i4.0
  IL_0170:  ldstr      "Key replacement request\r\nRegistered user: \r\n"
  IL_0175:  stelem.ref
  IL_0176:  nop
  IL_0177:  ldloc.s    VB$t_array$S0
  IL_0179:  ldc.i4.1
  IL_017a:  ldloc.3
  IL_017b:  stelem.ref
  IL_017c:  nop
  IL_017d:  ldloc.s    VB$t_array$S0
  IL_017f:  ldc.i4.2
  IL_0180:  ldstr      "\r\nOld product key: \r\n"
  IL_0185:  stelem.ref
  IL_0186:  nop
  IL_0187:  ldloc.s    VB$t_array$S0
  IL_0189:  ldc.i4.3
  IL_018a:  ldloc.s    oldkey
  IL_018c:  stelem.ref
  IL_018d:  nop
  IL_018e:  ldloc.s    VB$t_array$S0
  IL_0190:  ldc.i4.4
  IL_0191:  ldstr      "\r\nOld PIDN: \r\n"
  IL_0196:  stelem.ref
  IL_0197:  nop
  IL_0198:  ldloc.s    VB$t_array$S0
  IL_019a:  ldc.i4.5
  IL_019b:  ldloc.s    oldpidn
  IL_019d:  stelem.ref
  IL_019e:  nop
  IL_019f:  ldloc.s    VB$t_array$S0
  IL_01a1:  ldc.i4.6
  IL_01a2:  ldstr      "\r\nPhone number: \r\n"
  IL_01a7:  stelem.ref
  IL_01a8:  nop
  IL_01a9:  ldloc.s    VB$t_array$S0
  IL_01ab:  ldc.i4.7
  IL_01ac:  ldloc.s    phone
  IL_01ae:  stelem.ref
  IL_01af:  nop
  IL_01b0:  ldloc.s    VB$t_array$S0
  IL_01b2:  ldc.i4.8
  IL_01b3:  ldstr      "\r\nEmail address: \r\n"
  IL_01b8:  stelem.ref
  IL_01b9:  nop
  IL_01ba:  ldloc.s    VB$t_array$S0
  IL_01bc:  ldc.i4.s   9
  IL_01be:  ldloc.1
  IL_01bf:  stelem.ref
  IL_01c0:  nop
  IL_01c1:  ldloc.s    VB$t_array$S0
  IL_01c3:  ldc.i4.s   10
  IL_01c5:  ldstr      "\r\nProducts requested: \r\n"
  IL_01ca:  stelem.ref
  IL_01cb:  nop
  IL_01cc:  ldloc.s    VB$t_array$S0
  IL_01ce:  ldc.i4.s   11
  IL_01d0:  ldloc.s    pnames
  IL_01d2:  stelem.ref
  IL_01d3:  nop
  IL_01d4:  ldloc.s    VB$t_array$S0
  IL_01d6:  ldc.i4.s   12
  IL_01d8:  ldstr      "\r\nPIDN: \r\n"
  IL_01dd:  stelem.ref
  IL_01de:  nop
  IL_01df:  ldloc.s    VB$t_array$S0
  IL_01e1:  ldc.i4.s   13
  IL_01e3:  ldloc.s    pidn
  IL_01e5:  call       string [Microsoft.VisualBasic]Microsoft.VisualBasic.CompilerServices.Conversions::ToString(int32)
  IL_01ea:  stelem.ref
  IL_01eb:  nop
  IL_01ec:  ldloc.s    VB$t_array$S0
  IL_01ee:  ldc.i4.s   14
  IL_01f0:  ldstr      "\r\nContact information: \r\nPhone: 701-509-0166\r\nEmai"
  + "l: [email protected]; [email protected]"
  IL_01f5:  stelem.ref
  IL_01f6:  nop
  IL_01f7:  ldloc.s    VB$t_array$S0
  IL_01f9:  call       string [mscorlib]System.String::Concat(string[])
  IL_01fe:  callvirt   instance void [Microsoft.VisualBasic]Microsoft.VisualBasic.MyServices.ClipboardProxy::SetText(string)
  IL_0203:  nop
  IL_0204:  ldstr      "The information you have entered has been successf"
  + "ully copied to the clipboard. You may now transmit the information that"
  + " you have entered over the internet via email to [email protected]"
  + "m or [email protected]. If you wish to purchase a different produc"
  + "t, you may either use the ordering wizard or visit the store at http://"
  + "realitygaming.no-ip.net/store. Thank you for purchasing a reality gamin"
  + "g product! Press enter to continue."
  IL_0209:  ldstr      "Key replacement request completed!"
  IL_020e:  ldc.i4.0
  IL_020f:  ldc.i4.s   64
  IL_0211:  call       valuetype [System.Windows.Forms]System.Windows.Forms.DialogResult [System.Windows.Forms]System.Windows.Forms.MessageBox::Show(string,
                                                                                                                                                     string,
                                                                                                                                                     valuetype [System.Windows.Forms]System.Windows.Forms.MessageBoxButtons,
                                                                                                                                                     valuetype [System.Windows.Forms]System.Windows.Forms.MessageBoxIcon)
  IL_0216:  pop
  IL_0217:  br.s       IL_0221
  IL_0219:  nop
  IL_021a:  ldarg.0
  IL_021b:  callvirt   instance void [System.Windows.Forms]System.Windows.Forms.Form::Close()
  IL_0220:  nop
  IL_0221:  nop
  IL_0222:  nop
  IL_0223:  ret
} // end of method Form1::keyrwzrd

This translates to:
    Private Sub keyrwzrd()
        Dim Generator As System.Random = New System.Random()
        Dim pidn = Generator.Next(1000, 9999)
        Dim name = InputBox("Enter the name of the person who the product will be registered to: ", "Key Replacement Request Wizard")
        Dim oldkey = InputBox("If available, enter your old product key. It must be exactly as was given in your email that was sent to you upon completion of your order, and must match the registration name entered and the PIDN given to you at the start of this order. Note that, if you do not enter your old product key, a new one will have to be generated, despite the name entered here, even if it is in our records, and may delay the generation and transmission of your product key.", "Key Replacement Request Wizard")
        Dim oldpidn = InputBox("If applicable, enter the old four digit PIDN that was used when you last ordered this product.", "Key Replacement Request Wizard")
        Dim phone = InputBox("Enter a telephone number in case we need to contact you: ", "Key Replacement Request Wizard")
        Dim email = InputBox("Enter your e-mail address.", "Key Replacement Request Wizard")
        Dim pnames = InputBox("Enter the product names that you wish to order, e.g.: Snow Race. Separate them with commas: ", "Key Replacement Request Wizard")
        Dim correct = MessageBox.Show("Is this information correct? " & vbCrLf & "Key replacement request" & vbCrLf & "Registered user: " & vbCrLf & name & vbCrLf & "Old product key: " & vbCrLf & oldkey & vbCrLf & "Old PIDN: " & vbCrLf & oldpidn & vbCrLf & "Phone number: " & vbCrLf & phone & vbCrLf & "Email address: " & vbCrLf & email & vbCrLf & "Products requested: " & vbCrLf & pnames & vbCrLf & "PIDN: " & vbCrLf & pidn & vbCrLf & "To confirm this, click yes. Otherwise, click no to start over again.", "Key Replacement Request Wizard", MessageBoxButtons.YesNo)
        If correct = Windows.Forms.DialogResult.Yes Then
            My.Computer.Clipboard.SetText("Key replacement request" & vbCrLf & "Registered user: " & vbCrLf & name & vbCrLf & "Old product key: " & vbCrLf & oldkey & vbCrLf & "Old PIDN: " & vbCrLf & oldpidn & vbCrLf & "Phone number: " & vbCrLf & phone & vbCrLf & "Email address: " & vbCrLf & email & vbCrLf & "Products requested: " & vbCrLf & pnames & vbCrLf & "PIDN: " & vbCrLf & pidn & vbCrLf & "Contact information: " & vbCrLf & "Phone: 701-509-0166" & vbCrLf & "Email: [email protected]; [email protected]")
            MessageBox.Show("The information you have entered has been successfully copied to the clipboard. You may now transmit the information that you have entered over the internet via email to [email protected] or [email protected]. If you wish to purchase a different product, you may either use the ordering wizard or visit the store at http://realitygaming.no-ip.net/store. Thank you for purchasing a reality gaming product! Press enter to continue.", "Key replacement request completed!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            Me.Close()
        End If

    End Sub
Of course, I won't, ever be using that again. We've got something else i mind. (No, don't raise your eyebrows in question like that! Your not getting the code for the new registration system!)
So, a good hint to all of you, do not use Microsoft's .NET languages if you can avoid it.