Contact: aviboots(AT)netvision.net.il
41,593 questions
54,235 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim n As Integer = 12469 Dim s As Short = Convert.ToInt16(n) Console.WriteLine(s) End Sub End Module ' run: ' ' 12469 '