PSUB = Recording(FNum,Step_count,1) 'PSUB is delcared as String in Process Globals
Select PSUB
Case "Equal_Click"
Step_count = Step_count - 1
Idisplay.Text = Idisplay.Text.SubString2(0,Max(0, Idisplay.Text.Length-1))
Case "Plus_click"
Step_count = Step_count - 1
Idisplay.Text = Idisplay.Text.SubString2(0,Max(0, Idisplay.Text.Length-1))
Case "Minus_click" Or "Divide_click" Or "Multiply_Click" Or "ChangeSign_Click"
Step_count = Step_count - 1
Idisplay.Text = Idisplay.Text.SubString2(0,Max(0, Idisplay.Text.Length-1))
Case "Factorial_click" Or "PI_Click" Or "tLn_Click"
Step_count = Step_count - 1
Idisplay.Text = Idisplay.Text.SubString2(0,Max(0, Idisplay.Text.Length-2))
Case "ANS_Click" Or "mod_click" Or "Absolute" Or "iLn_Click" Or "tLog_Click" Or "iLog_Click"
Step_count = Step_count - 1
Idisplay.Text = Idisplay.Text.SubString2(0,Max(0, Idisplay.Text.Length-3))
Case "tSin_Click" Or "tCos_Click" Or "tTan_Click" Or "isin_click" Or "icos_click" Or "itan_click"
Step_count = Step_count - 1
Idisplay.Text = Idisplay.Text.SubString2(0,Max(0, Idisplay.Text.Length-3))
Case "btnSinh_click" Or "btnCosh_click" Or "btnTanh_click"
Step_count = Step_count - 1
Idisplay.Text = Idisplay.Text.SubString2(0,Max(0, Idisplay.Text.Length-4))
Case "NEXTFORM"
Step_count = Step_count - 1
Idisplay.Text = Idisplay.Text.SubString2(0,Max(0, Idisplay.Text.Length-4))
Results(FNum,Results_Flag,0) = ""
Results_Flag = Results_Flag - 1
Case "aSinh" Or "aCosh" Or "aTanh"
Step_count = Step_count - 1
Idisplay.Text = Idisplay.Text.SubString2(0,Max(0, Idisplay.Text.Length-5))
End Select