ຄຳສັ່ງ Set

ກຳນົດການອ້າງອີງວັດຖຸໃຫ້ກັບຕົວປ່ຽນ.

   [Set] variable = [New] object

variable: ຕົວປ່ຽນ ຫຼື ຄຸນສົມບັດທີ່ຕ້ອງການການອ້າງອີງວັດຖຸ.

expression: ການລວມກັນຂອງນິພົດທີ່ສາມາດຄຳນວນໄດ້ ເຊັ່ນ ສູດ ຫຼື ຄຸນສົມບັດວັດຖຸ ຫຼື ເມັດທອດ (method).

object: ວັດຖຸທີ່ຕົວປ່ຽນອ້າງອີງເຖິງ.

Nothing - ກຳນົດ Nothing ໃຫ້ກັບຕົວປ່ຽນເພື່ອຍົກເລີກການກຳນົດຄ່າກ່ອນໜ້ານີ້.

ຄຳຫຼັກ Set ແມ່ນທາງເລືອກ (ບໍ່ໃສ່ກໍໄດ້). Nothing ແມ່ນຄ່າເລີ່ມຕົ້ນສຳລັບວັດຖຸ.

Sub ExampleSet
    Dim obj As Object
    Set obj = ThisComponent
    Print obj.Title
 
    obj = New com.sun.star.beans.PropertyValue
    With obj
        .Name = "key" : .Value = 594.34
        Print .Name, .Value
    End With
End Sub

New ສ້າງວັດຖຸ UNO ຫຼື ວັດຖຸ ໂມດູນຄລາສ (class module), ກ່ອນທີ່ຈະກຳນົດໃຫ້ກັບຕົວປ່ຽນ.