Yes you can issue a shell command like openoffice2.0\program\quickstart - killtray
Sub CloseQuickstarter
LeChemin = GetRepertoirePath("prog")&"\quickstart.exe -killtray"
Shell(LeChemin)
End Sub
Function GetRepertoirePath(sInstPath as String) as String 'donne le répertoire correspondant
Dim oPathSubstSrv as Object
Dim sPath as String
sInstPath = "$("+sInstPath+")"
oPathSubstSrv = createUnoService("{@see com.sun.star.comp.framework.PathSubstitution}")
sPath = ConvertFromUrl(oPathSubstSrv.getSubstituteVariableValue(sInstPath))
GetRepertoirePath = sPath
End Function