Module Module1
Sub Main()
Dim BigInteger As Integer = 10000
Dim LittleInteger As Short
Dim BigFloat As Double = 0.123456789
Dim LittleFloat As Single
LittleInteger = BigInteger
LittleFloat = BigFloat
Console.WriteLine(LittleInteger)
Console.WriteLine(LittleFloat)
End Sub
End Module
10000
0.1234568