OpenGL Mousewheel einsetzen

Hallo
also ich habe mir mal ein Beispielmodell aus dem Internet zusammengebastelt (es gibt ja ewig Zeug, aber halt nix, was passend ist) und da kann ich um alle 3 Achsen im Raum drehen und mich bewegen.

Leider habe ich aber nix gefunden, um mit dem Mousewheel noch zoomen zu können. Die Funktion wird ja über die Klassenbib CX aufgerufen.
Weiss da jmd was hierzu???

Private Sub glxCtl1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
CX.MouseMove Button, Shift, x, y
End Sub

Mfg Werner

Hallo Werner,

Leider habe ich aber nix gefunden, um mit dem Mousewheel noch
zoomen zu können.

ja, das Mausrad gab es noch nicht, als VB6 ntwickelt wurde.

http://www.activevb.de/tipps/vb6tipps/tipp0560.html

Gruß Rainer