unable to connect! (General questions)

hi, iam using sftp demo version 2.2.2, when iam connecting to remote server the status property is showing a value of 1 (connecting), but it is not changing to 3(connected). Iam unable to perform any operations like getfile, delete etc.

Following is my code.

---------------------------------------------------------------------
Dim WithEvents myftp As wodSFTPCom

Private Sub Command1_Click()
Dim todir As String
Dim fromdir As String

'Set wodSFTP1 = New wodSFTPLibCtl

todir = E:TezRaftar rpisourceFTPTest
fromdir = /FTPTest/

'myftp.HostName = 10.1.124.9
myftp.Login = uid
myftp.Password = uid
myftp.TimeOut = 0


myftp.Connect 10.1.124.9 , 21


myftp.DeleteFile FTPTest/UE230205.006

'myftp.GetFile todir, fromdir

End Sub

Private Sub Form_Load()
Set myftp = New wodSFTPCom
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set myftp = Nothing
End Sub