Type MyType (Item1 As Int, Item2 As Int)
...
Public Sub CreateMyType (Item1 As Int, Item2 As Int) As MyType
Dim t1 As MyType
t1.Initialize
t1.Item1 = Item1
t1.Item2 = Item2
Return t1
End Sub
...
Sub Temp(Input As MyType)
Dim x, y As Int
x = Input.x
y = Input.y
End Sub
...
Temp(CreateMyType (3,4))