Imports System
public delegate sub a1()
Public Module Module1
Public Sub Main()
dim a as a1
a = new a1(addressof an1)
a()
End Sub
sub an1()
console.writeline("Enter first value")
dim a as integer
a = console.readline()
console.writeline("Enter seconed value:")
dim b as integer =
b = console.readline()
dim c as integer
c = a * b
console.writeline("The product is:")
console.writeline(c)
if c = 12 then
console.writeline("ab12")
end if
end sub
End Module