Easy Question regarding the

[PRIVATE1]

Good morning everyone ,

Have a look below .

[Code]
CurrentSends = CurrentSends + 1
ReDim Preserve arrSendme(CurrentSends)
Set arrSendme(CurrentSends) = New Sendme
With arrSendme(CurrentSends)
arrSendme(0).Filename = Filenamestr$
arrSendme(0).Ip
arrSendme(0).Port
arrSendme(0).Size
arrSendme(0).Ext
arrSendme(0).From = SendersNick$
Case Is = 2
'User Declined File
Dim returnto As String
Dim retvalFile As String

The Bold line above causes an error . The code below is in a module

Public arrSendme() As Sendme

Public Type Sendme
    Ip As String
    Port As Long
    Filename As String
    Size As Long
    Ext As String
    From As String
    
End Type

Do you have an idea on whats going wrong ?

Thanks again guys ,

[]P