Minimalist 96 Posting Pro

@Mr.M
here is the output from your code. Also I don't know why you would insist on a mistake being correct? Have you tried to run it? I only feel sorry for the OP as her question got side tracked.

Minimalist 96 Posting Pro

Yes you can - To have these keys raise the KeyDown event, you must override the IsInputKey method in each control on your form. Read the link.
Since your code calls it from the TextBox1_KeyDown event you need to call it from the form that has focus.

Minimalist 96 Posting Pro

Well, I haven't worked with com ports since dos6 and commit but you might find eberything you need to get started here:
http://www.codeproject.com/Articles/16648/NET-Phone-Communication-Library-Part-I-Retrieve-P
http://www.codeproject.com/Articles/16727/NET-Phone-Communication-Library-Part-IV-Receive-S

Minimalist 96 Posting Pro

Did you install all the sevice packs for vb6?
http://www.microsoft.com/en-us/download/details.aspx?id=5721
Also check this website for answers.

Minimalist 96 Posting Pro

Its not really clear if you want 1 var or 3 var.You always can put them into an array:
arr1(6) as string =New String(){"200","100"......} and so on

Minimalist 96 Posting Pro

Maybe this is what you want?

Dim x As Integer = PictureBox1.Width
        Dim y As Integer = PictureBox1.Height
        Dim bm As New Bitmap(x, y)

        PictureBox1.DrawToBitmap(bm, New Rectangle(0, 0, x, y))

        PictureBox2.Image = bm
Minimalist 96 Posting Pro

Sorry I was too hasty, you do already.

Minimalist 96 Posting Pro

Your dim statements are out of the button click event.I also can't seew here you open the connection. You would perform these steps:

 'Define connection string
 oConnect=
 'Define the query
   oQuery =
   'Instantiate the connectors
    oConn = New OleDbConnection(oConnect)
    oComm = New OleDbCommand(oQuery, oConn)
    'Open the connection
     oConn.Open()
     'Perform the Non-Query
      oComm.ExecuteNonQuery()
      'Close the connection
       oConn.Close()
Minimalist 96 Posting Pro

Maybe the Tag propert can help you.

For Each objControl As Control In form1.Controls
   If TypeOf objControl is Button Then
       If objControl.Tag <> objControl.Text Then
           '---Changes have been made!---
       End if
   End if
Next

Also check these out:
http://msdn.microsoft.com/de-de/library/system.windows.forms.control.tag(v=vs.110).aspx

http://stackoverflow.com/questions/5299435/how-to-create-control-arrays-in-vb-net