Dim azar As New Random
        setd1(azar.Next(1, 7))
        setd2=(azar.Next(1, 7))

Dim dados As New dado
dim dados2 as dado

Dim dados As New dado
dim dados2 as dado

Public Class calcular
    Private juan, maria, pedro As Byte
 
    Public Sub setjuan(ByVal value As Integer)
        juan = value
    End Sub
    Public Sub setmaria(ByVal value As Integer)
        maria = value
 
    End Sub
    Public Sub setpedro(ByVal value As Integer)
        pedro = value
 
    End Sub
 
    Public Function getjuan()
        Return juan
    End Function
 
    Public Function getmaria()
        Return maria
    End Function
 
    Public Function getpedro()
        Return pedro
 
    End Function
 
 
End Class

Public Property X() As Integer
Get
 Return x
End Get
Set(ByVal Value As Integer)
 x = value
End Set
End Property

public class person
 private age, weight, height as integer
 ' set your properties here.
end class
 
sub main()
 dim juan, maria pedor as person
 juan.age = 21
 maria.age = 30
 pedro.age = 40
 
 
dim ageDiff as integer = maria.age - pedro.age
end sub