So einfach dass es sogar dein Hund machen könnte (mir wurde von einigen Leuten gesagt dass ihr Hund "Lucky" heißt.... hehe)!
Alles was wir eigentlich zu machen brauchen ist eine neue Instanz von DPlay zu erstellen, in dem wir die Methode DirectX7.DirectPlayCreate aufrufen:
 

Dim dx As New DirectX7
Dim dp As DirectPlay4

    Set dp = dx.DirectPlayCreate("")

Und schon ist DirectPlay initialisiert! Aber es gibt einige andere Dinge über die wir hier auch sprechen könnten, am wichtigsten ist hier wohl die Erstellung eines Globally Unique Identifier oder GUID (zu deutsch: eine Nummer die weltweit nur einmal existiert).
Den GUID brauchen wir später wieder, wenn wir Sessions für unser Spiel suchen oder es erstellen. Jedes Spiel das DPlay verwendet, muss fähig sein andere Arten von DPlay-Spielen zu erkennen und sich nicht mit diesen zu verbinden - und Fehler zu verursachen. Der GUID ist eine Zeichenfolge, die garantiert einmalig und wird daher benutzt, verschiedene Spiele untereinander zu unterscheiden. Oder willst du etwa mit StarCraft verbunden werden wenn du Unreal Tournament spielen willst??? Nein? - Ich liebe den blauen Bildschirm des Todes :-)
 

Const AppGuid = "{64823540-E39A-11D3-9651-0080C8E4028D}"

Das ist der GUID die von NetPong genutzt wird (also verwende sie nicht in deinem Spiel!). Um dir einen eigenen GUID zu erstellen, schau im Verzeichnis /samples/Multimedia/VBSamples/DXMisc/bin des DirectX SDK nach "VBGUIDGEN.EXE". Doppelklicken.... und, was ist es?
Ein kleines Arschloch!!! (hehe... nein... wirklich... es ist ein GUID! Deine ganz persönliche eigene im ganzen Universum nur einmal existierende GUID!!)

Jetzt packst du das A... äh... den GUID noch in eine schöne Konstante in deinem Proggi (wie oben) und denkst erst mal wieder an die schönen Dinge des Lebens :-)

Gehe weiter auf dem Pfad der Erleuchtung! Lies das Tutorial über die Auflistung von Verbindungstypen! Klicke hier für den Quellcode! Möge die Macht mit dir sein!