If Exp Then ... Else ... End If Dim i As Integer = 0 For i = 1 To 10 ... Next Dim sum As Integer = 0 Do While sum < 100 ... sum = sum + 10 Loop Select Case Color Case "red" ... 'nao precisa de break Case Else ... End Select