Calling the Calculator application

Public Class Form1

    Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim ProcID As Integer

        '  Dim a As Integer

        Dim c As Integer

        'Dim d1 As String

        ' Dim e1a As Integer

        ' Start the Calculator application, and store the process id.

        ' On Error GoTo errorhandler

        'ProcID = Shell("C:\Program Files\Voxox\Vovox.EXE", AppWinStyle.NormalFocus)

        'ProcID = Shell("C:\Program Files\Skype\Phone\Skype.EXE", AppWinStyle.NormalFocus)

        ' ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)

        ' Activate the Calculator application.

        'MsgBox(ProcID)

        'TextBox4.Text = ProcID

        ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)

        ' Activate the Calculator application.

        'MsgBox(ProcID)

        c = ProcID

        TextBox4.Text = c

    End Sub

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

        'Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim ProcID As Integer

        Dim a As Integer

        Dim c As Integer

        'Dim d1 As String

        Dim e1a As Integer

        ' Start the Calculator application, and store the process id.

        On Error GoTo errorhandler

        'ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)

        ' Activate the Calculator application.

        'MsgBox(ProcID)

        'c = ProcID

        ' TextBox4.Text = c

start:

        ' Dim ProcID As Integer

        ' Dim c As Integer

        Dim d As Integer

        ' TextBox4.Text = ProcID

        TextBox5.Text = TextBox4.Text

        c = TextBox5.Text

        AppActivate(c)

        'c = TextBox1.Text

        'd = TextBox2.Text

        'c = TextBox1.Text

        ' d1 = TextBox2.text

        ' e1a = TextBox3.Text

        '22 SendALT-NALT-F123456789= the keystrokes to the Calculator application.

        ''My.Computer.Keyboard.SendKeys("%fnf", True)

        'My.Computer.Keyboard.SendKeys("%al", True)

        ' My.Computer.Keyboard.SendKeys("%F", True)

        My.Computer.Keyboard.SendKeys(TextBox1.Text, True)

        My.Computer.Keyboard.SendKeys("+=", True)

        My.Computer.Keyboard.SendKeys(TextBox3.Text, True)

        My.Computer.Keyboard.SendKeys("=", True)

        ''My.Computer.Keyboard.SendKeys("~", True)

        ''My.Computer.Keyboard.SendKeys("%f", True)

        ''My.Computer.Keyboard.SendKeys("%s", True)

        ''My.Computer.Keyboard.SendKeys("~", True)

        'My.Computer.Keyboard.SendKeys("%", True)

        '' My.Computer.Keyboard.SendKeys("+", True)

        '' My.Computer.Keyboard.SendKeys("123456789", True)

        ''  My.Computer.Keyboard.SendKeys("Call", True)

        ' The result is 22 * 44 = 968.

        'GoTo start

        'TextBox5.Text = TextBox4.Text

errorhandler:

        Exit Sub

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

End Class

This is a sample of the notes from VB.NET. There would be additional software codes which would be added.

The above code shows a calling function for a calculator Form. This function is placed into a Form and placed into the Source Code for VB.NET.