Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub Text1_Keypress (KeyAscii as integer)
Select Case KeyAscii
Case Asc("0") to Asc("9"), 8 'Digits and Backspace Ok
Case ELse
KeyAscii = 0 ' Reject
End Select
End Sub
If (IsNumeric(txtSrcA(0).Text) And IsNumeric(txtSrcA(1).Text)) Then