Return Array from Class

[MagellanTX]

How do I return an array from a class??

For example I have the following:

Public Function GetMessages() AS String
Dim sMsgs(2000) as string

     For J = 1 to 2000
          sMsgs(j) = winsock1.getdata~~~~
     Next J

End function

How do I return all 2000 sMsgs?

Thanks!!!

[TheBao]

Public Function GetMessages() AS String
Dim sMsgs(2000) as string

For J = 1 to 2000
sMsgs(j) = winsock1.getdata~~~~
Next J

End function

You can do this:

Public Function GetMessages() AS String()
Dim sMsgs(2000) as string

     For J = 1 to 2000
          sMsgs(j) = winsock1.getdata~~~~
     Next J

GetMessages = sMsgs
End function

or

Public Sub GetMessages(ByRef sMsgs() as String)
     For J = 1 to 2000
          sMsgs(j) = winsock1.getdata~~~~
     Next J

End Sub

Regards,
TheBao