primero.vb

'esto es un copmentario
'esto es otro seguido

dim hola, dos, tres as boolean, blah as integer
Dim blah As Boolean    'esto es otro comentario
Dim esto As Integer
Dim esto As Boolean
Dim cual As Integer
Dim blah As Otro
Dim ahora As Boolean

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

Sub Main3 ( ByVal shit As Boolean)  

  Dim X As Boolean
  Dim a,b,c As Integer
  x = False
  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 Main2(ByRef blah As Boolean)
  Dim a As Integer


  a = 5
End Sub


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

Sub This()
  Do While 5+38+a()
    Dim var As Empl
a = 5+3 
  Loop
End Sub

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


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


type Empleado
	A As Boolean
	X As
End Type