Visual Basic

Dim x As Integer, b As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  Dim y As New System.Drawing.Point(8, 48)
        If (IsNumeric(txtdata_num.Text)) Then
            x = CInt(txtdata_num.Text)
            Try
                For b = 0 To x - 1
                    Dim st(b) As System.Windows.Forms.TextBox
                    st(b) = New System.Windows.Forms.TextBox()
                    st(b).Location = y
                    st(b).Name = "textbox" & b
                    st(b).Size = New System.Drawing.Size(40, 40)
                    st(b).Visible = True
                    Me.Controls.Add(st(b))
                    y = New System.Drawing.Point(st(b).Location.X + st(b).Size.Width, st(b).Location.Y)
                    If (b + 1) Mod 10 = 0 Then
                        y = New System.Drawing.Point(st(0).Location.X, st(b).Location.Y + st(b).Size.Width + 5)
                    Else
                    End If

                Next
            Catch ea As Exception
                MsgBox(ea.Message)
            End Try
        End If


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For b = 0 To x - 1
            st(b) = New System.Windows.Forms.TextBox()
            'Dim st(b) As System.Windows.Forms.TextBox

            If st(b).Text <> "" And IsNumeric(st(b).Text) Then
                Dim ad As Integer
                ad = Val(st(b).Text) + Val(st(b + 1).Text)
                MsgBox(ad)
            End If
        Next

    End Sub

<br />
    ...<br />
    cExec = "wceload.exe"<br />
    cParams = Chr(34) & cabPath & Chr(34) & " /delete 0"<br />
    bResult = CreateProcess_Internal(cExec, cParams)<br />
    Application.DoEvents()<br />
    Me.Refresh()<br />
    ...<br />
<br />
<br />
Public Function CreateProcess_Internal(ByVal ExeName As String, ByVal CmdLine As String) As Boolean<br />
<br />
        Dim result As Int32<br />
        Dim si(128) As Byte<br />
        Dim pi As New ProcessInfo<br />
<br />
<br />
        result = CreateProcess(ExeName, CmdLine, _ <br />
          IntPtr.Zero, IntPtr.Zero, 0, 0, IntPtr.Zero, _<br />
          IntPtr.Zero, si, pi)<br />
        If result = 0 Then Return False<br />
        <br />
        result = WaitForSingleObject(pi.hThread, WAITNORM)<br />
<br />
        CloseHandle(pi.hThread)<br />
        CloseHandle(pi.hProcess)<br />
        pi = Nothing<br />
<br />
	If result <> 0 Then Return False<br />
	Return True<br />
<br />
    End Function<br />