Example Script

Imports System

Imports System.IO

Imports System.Windows.Forms

Imports Microsoft.VisualBasic

Namespace WinTr

Public Class MainClass

          Public Tag_1 As Uint16

          Public Sub Load

          '------- Script Start Line -------

          Try

                    Dim myValue As Object

                    System.Diagnostics.Process.Start("osk") 'On screen key board open                   

Again:        myValue = InputBox( "Please enter the Tag value and press 'OK'","Input Value", Tag_1)             

                    If myValue = "" Then

                              Exit Sub

                    End If

                    If isnumeric(myValue) = True then

                              If myValue > 0 and myValue <= 100 Then

                                        Tag_1 = myValue

                              Else

                                        MsgBox("Value can be a number between 0 and 100")

                                        Goto Again 

                              End If

                    Else

                              MsgBox("Value can only be a number")

                              Goto Again

                    End If

          Catch ex As Exception

                    MessageBox.Show(Ex.ToString,Ex.Message)

          End Try

          '------- Script End Line -------

          End Sub

End Class

End Namespace