DirectCast : DirectCast « Development « VB.Net Tutorial

1. VB.Net Tutorial
2. Development
3. DirectCast

public class Test
   public Shared Sub Main
        Dim numberOfTimes As Object
        numberOfTimes = 12
        If TypeOf numberOfTimes Is Integer Then
            Dim repeatCount As Integer
            repeatCount = _
                DirectCast(numberOfTimes, Integer)
            For idx As Integer = 1 To repeatCount
                Console.WriteLine("Duncanma")
            Next
        End If

    End Sub

End class

Duncanma
Duncanma
Duncanma
Duncanma
Duncanma
Duncanma
Duncanma
Duncanma
Duncanma
Duncanma
Duncanma
Duncanma