Call Statement
рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рдкреНрд░рдХрд╛рд░реНрдп,рд╡рд╛ DLL рдХрд╛рд░реНрдпрд╡рд┐рдзреА рдорд╛ рдХрд╛рд░реНрдпрдХреНрд░рдордХреЛ рдирд┐рдпрдиреНрддреНрд░рдг рд╕рд╛рд░реНрдиреБрд╣реЛрд╕реН ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
[Call] рдирд╛рдо [Parameter]
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдирд╛рдо: рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рдХреЛ рдирд╛рдо, рдкреНрд░рдХрд╛рд░реНрдп, рд╡рд╛ DLL, рдЬреБрди рддрдкрд╛рдИрдБрд▓реЗ рдмреЛрд▓рд╛рдЙрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдкрд░рд╛рдорд┐рддрд┐: рдкрд░рд╛рдорд┐рддрд┐ рдХрд╛рд░реНрдпрд╡рд┐рдзреА рдкрд╛рд╕ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВрдХреЛ рдкреНрд░рдХрд╛рд░реНрдп рд░ рдирдореНрдмрд░ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рдорд╛ рдирд┐рд░реНрднрд░ рд╣реБрдиреНрдЫ рдЬреБрди рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рднрдЗрд░рд╣рдиреНрдЫ ред
рддрдкрд╛рдИрдБрд▓реЗ рдХрд╛рд░реНрдпрд╡рд┐рдзреА рдмреЛрд▓рд╛рдЙрджрд╛ рд╢рдмреНрджрдХреБрдЮреНрдЬреА рдРрдЪреНрдЫрд┐рдХ рд╣реБрдиреНрдЫрди ред рдпрджрд┐ рдкреНрд░рдХрд╛рд░реНрдп рдХрд╛рд░реНрдпрд╡рд┐рдзреАрдХреЛ рд░реВрдкрдорд╛ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ рдХрдердирдорд╛ рдХреЛрд╖реНрдардХрджреНрд╡рд╛рд░рд╛ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд╛рдЙрдиреБ рдкрд░реНрджрдЫ ред рдпрджрд┐ DLLрдмреЛрд▓рд╛рдПрдХреЛ рдЫ рднрдиреЗ рд╕рдмрднрдиреНрджрд╛ рдкрд╣рд┐рд▓реЗ рдШреЛрд╖рдгрд╛-рдХрдердирдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдиреИ рдкрд░реНрджрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleCall
Dim sVar As String
sVar = "LibreOffice"
Call f_callFun sVar
End Sub
Sub f_callFun (sText as String)
Msgbox sText
End Sub