Visual Basic 6.0 Tips

''C:\Windows\System32\RegSvr32.exe "C:\users\xxxxx\downloads\VB6IDEMouseWheelAddin.dll"''
Function Atan2(ByVal y As Double, ByVal x As Double) As Double
' fixed 1/25/2013 D. Juges
' True = -1
' False = 0
    If x Then
            Atan2 = Atn(y / x) - (x < 0) * Pi ' x != 0
        Else
            Atan2 = -Pi / 2 - (y > 0) * Pi ' x = 0
    End If
End Function ' Atan2()
VisiblePictureBox.Picture = HiddenPictureBox.Image
cd C:\Windows\System32\
regtlib msdatsrc.tlb

This also helped with other older .ocx files, like Graph32.ocx and Threed32.ocx
- Ilya Kurnosov Apr 15 '13 at 14:51
If there is no regtlib.exe in C:\Windows\System32, use this one C:\Windows\Microsoft.NET\Framework\v4.0.30319\regtlibv12.exe
– Bulletmagnet Apr 17 '14 at 10:04