How To Use CTL3D.DLL in Your Visual Basic Program

MORE INFORMATION

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add the following code to the form's general declarations section:

      Option Explicit
      Const GWW_HINSTANCE = (-6)
   
      ' Enter each declaration as one, single line:
   
      Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal
         nIndex As Integer) As Integer
      Declare Function Ctl3dAutoSubclass Lib "Ctl3D.DLL" (ByVal hInst As
         Integer) As Integer
      Declare Function Ctl3dRegister Lib "Ctl3D.DLL" (ByVal hInst As Integer)
         As Integer
      Declare Function Ctl3dUnregister Lib "Ctl3D.DLL" (ByVal hInst As
         Integer) As Integer
   
   					

3. Add the following code to the form's load event procedure:

      Sub Form_Load ()
        Dim hInst As Integer, ret As Integer
   
        hInst = GetWindowWord(Me.hWnd, GWW_HINSTANCE) ' Get Instance Handle
        ret = Ctl3dRegister(hInst)            ' Register program w/ Ctl3d.
        ret = Ctl3dAutoSubclass(hInst)        ' Subclass the program.
      End Sub
   
   					

4. Add the following code to the form's unload event procedure:

      Sub Form_Unload (Cancel As Integer)
        Dim hInst As Integer, ret As Integer
   
        hInst = GetWindowWord(Me.hWnd, GWW_HINSTANCE) ' Get Instance Handle
        ret = Ctl3dUnregister(hInst)          ' Unregister the program.
      End Sub
   
   					

5. Add a command button (Command1) to the form.
6. In the Click event for Command1, add a MsgBox statement:

      Sub Command2_Click ()
         MsgBox "This is a 3-D Message Box"
      End Sub
   
   					

7. Press the F5 key to run the program. When you click the command button, a message box will appear in 3-D.

Important Note