declar.vb

'esto es un comentario
'esto es otro seguido

Dim blah As Boolean    'esto es otro comentario
Dim e, f As Integer
Dim esto As Integer
Dim esto As Boolean
Dim cual As Integer
Dim s As Otro
Dim ahora As Boolean

Function x (ByVal argumento1 As Integer, ByRef argumento2 As Boolean) As Integer 'cuarto comentario
  If True And False Or True = False 
    c = True And Not True
    A() 'tercer comentario
  b = "" 
  a = "esto"&_
    "a ver"   &_
  End    If
  'algo final
  z = "as"
End Function

Sub Main ( ByVal shit As Boolean)  

  Dim X As Boolean
  Dim a,b,c As Integer
  x = False
  s = 5 + 3 + "c"
  For s = 5 To 9
    Dim contador As Integer
    x = True = False
    y = (False = True)
  Next
  Exit Sub
End Sub

Function y () As Boolean
  Dim b As Boolean
  x = True
  y = 3+4*a
  Do While True
    a(4+3,6,h(),"llamada de argumento")
    z()
  Loop   
  Exit Function
End Function

Sub Main(ByRef blah As Boolean)
  Dim a As Integer
  a = 5
  s = 5.5
End Sub


Function x() As Integer
  Dim s As Integer
End Function

Sub This()
  Do While 5+3>8+a()
    a = 5
  Loop
End Sub

Type Carro
  vari As Integer
End Type

Function u() As Integer
  a.a = 5
End Function


Function a() As Boolean
  If True And Not True And False
    a = 5
  End If
  a = 3
End Function