>>>The error is "OLE lDispatch exception code 0 from Skype4COM.Skype.1: Connection refused..."
>>>
>>>Here is some code that I found and it doesn't work for me
>>>
>>>

>>>** Create a Skype4COM object:
>>>oSkype = CreateObject("Skype4COM.Skype", "Skype_")
>>> 
>>>** Start the Skype client:
>>>If !oSkype.Client.IsRunning 
>>>	oSkype.Client.Start()
>>>ENDIF 
>>> 
>>>** Declare the following Skype constants:
>>>cUserStatus_Offline = oSkype.Convert.TextToUserStatus("OFFLINE")
>>>cUserStatus_Online = oSkype.Convert.TextToUserStatus("ONLINE")
>>>cCallStatus_Ringing = oSkype.Convert.TextToCallStatus("RINGING")
>>>cCallStatus_Inprogress = oSkype.Convert.TextToCallStatus("INPROGRESS")
>>>cCallStatus_Failed = oSkype.Convert.TextToCallStatus("FAILED")
>>>cCallStatus_Refused = oSkype.Convert.TextToCallStatus("REFUSED")
>>>cCallStatus_Cancelled = oSkype.Convert.TextToCallStatus("CANCELLED")
>>>cCallStatus_Finished = oSkype.Convert.TextToCallStatus("FINISHED")
>>>cCallStatus_Busy = oSkype.Convert.TextToCallStatus("BUSY")
>>>cAttachmentStatus_Available = oSkype.Convert.TextToAttachmentStatus("AVAILABLE")
>>>	 
>>>** The PlaceCall command will fail if the user is offline. To avoid failure, check user status and change to online if necessary:
>>>*!*	If cUserStatus_Offline = oSkype.CurrentUserStatus 
>>>*!*		oSkype.ChangeUserStatus(cUserStatus_Online)
>>>*!*	ENDIF 
>>>
>>>** Create a user object:
>>>oUser = oSkype.User("Chasse Denis")
>>>
>>>
>>>*!*	MESSAGEBOX( "User " + oUser.Handle + " online status is " + oSkype.Convert.OnlineStatusToText(oUser.OnlineStatus))
>>>*!*	WScript.Echo "User " & oUser.Handle & " online status is " & oSkype.Convert.OnlineStatusToText(oUser.OnlineStatus)
>>>
>>>SET STEP ON 
>>>
>>>** Place a call:
>>>

>>>
>>>Up to this point everything is ok. It's what follows that is not right.
>>>
>>>I tried the next three ways to place a call. They all give errors.
>>>
>>>

>>>oCall = oSkype.PlaceCall(oUser)
>>>oCall = oSkype.PlaceCall(oUser.Handle)
>>>oSkype.PlaceCall(oUser.Handle)
>>>

>>>
>>>If even if one of the previous worked it wouldn't really do what I want.
>>>
>>>From my VFP app. I want to be able to call a phone number (SkypeOut)
>>>
>>>Anybody knows how to fix this?
>>
>>I have started to reply in the private area but you never came back,
>>
>>The correct syntax to place a call is you call the handle.
>>
>>

oskype.PlaceCall(ouser.Handle)

>>
>>This one bring up the interface and starts dialing. Two things:
>>1. You may want to add this line to your code, after you created the oSkype object:
>>

oSkype.Attach()

>>2. Skype has to already be running, minimized in the tray for this to work.
>
>
>Here's the last version that I have
>
>

>DECLARE Sleep IN kernel32 INTEGER dwMilliseconds
> 
>oskype = CREATEOBJECT("Skype4COM.Skype", "Skype")
>oskype.timeout = 5000
>sleep(1000)
>setskypesilent()
>
>&& I tried many variations here but non came through
>&& I tried "+15146441809"
>&& I tried "+5146441809"
>
>oSkype.PlaceCall("5146441809")
>
>PROCEDURE setSkypeSilent
>LOCAL lcerror
>TRY
>    IF EMPTY(oskype.silentmode)
>     oskype.silentmode = .T.
>     DOEVENTS
>    ENDIF
>CATCH TO lcerror
>FINALLY
>ENDTRY
>ENDPROC
>

>
>Still the same error comes out. Connection refused

As I said in an other post, you original code works for me. It is hard to determine why your connection is refuse. Can you make a call with Skype without VFP?