Winsock uden en form, hvordan ?

Altså jeg ved godt hvordan jeg kalder .dll filen, men hvordan opretter man en winsock når ikke man har den visuelle del.

Tilføj Winsock komponenten til dit projekt via toolbox\'en til venstre (højreklik -> Components... -> Sæt hak ved Microsoft Winsock Control)

Opret et Winsock objekt - f.eks:

Dim wsock As Winsock

Nu kan du bruge wsock til at hente metoder osv.

OK, men jeg kan sq ikke få det til at fungere....

I et forsøg med en normal form osv. så har jeg prøvet det her :

------------------------------------------------------
Dim wsock As Winsock

Private Sub Command1_Click()
wsock.Connect
End Sub

Private Sub Command2_Click()
Label1.Caption = wsock.State
End Sub

Private Sub Form_Load()
wsock.Protocol = sckUDPProtocol
wsock.RemoteHost = \"212.112.129.14\"
wsock.RemotePort = 27015
End Sub
-----------------------------------------------
og den kaster op i første linie efter Form_Load(), og siger at 
\'Object Variable or With block variable not set\' hvilket tyder på at wsock ikke er oprettet....!

Dim wsock As Winsock

Private Sub Command1_Click()
wsock.Connect
End Sub

Private Sub Command2_Click()
Label1.Caption = wsock.State
End Sub

Private Sub Form_Load()
set wsock=new Winsock \'den skal lige instansieres
wsock.Protocol = sckUDPProtocol
wsock.RemoteHost = \"212.112.129.14\"
wsock.RemotePort = 27015
End Sub


Du kan evt. udvide ved at definere den i et classmodul, således:

Dim WithEvents wsock As Winsock


/Jennemaan

den crasher, og siger invalid use of \'new\' Keyword.

Jeg lukker og opretter med flere point....

aaarrrgggghhh, så lige at jeg bare kunne ha afsat flerepoint,, hmmm. Det må jeg gøre en anden gang.!