apis.bas

the attached file contains artifitial neural network code

Attribute VB_Name = "APIs"
Declare Function GetCursorPos Lib "user32" (lpPoint As Point2d) As Long

Declare Function ShellExecute Lib "shell32.dll" Alias _
                 "ShellExecuteA" (ByVal hwnd As Long, _
                                  ByVal lpOperation As String, _
                                  ByVal lpFile As String, _
                                  ByVal lpParameters As String, _
                                  ByVal lpDirectory As String, _
                                  ByVal nShowCmd As Long) As Long

Type Point2d
    X As Long
    Y As Long
End Type

Sub ColorToRGB(ByVal Color As String, ByRef r As Integer, ByRef g As Integer, ByRef b As Integer)
    On Error GoTo Solution
    
    Dim SStr As String
    Dim sR As String, sB As String, sG As String
    SStr = "000000" & Hex(Color)
    SStr = Right(SStr, 6)
    sB = "&H" & Mid(SStr, 1, 2): b = CInt(Format(sB))
    sG = "&H" & Mid(SStr, 3, 2): g = CInt(Format(sG))
    sR = "&H" & Mid(SStr, 5, 2): r = CInt(Format(sR))
    
Solution:
        If Err.Number <> 0 Then
            r = -1
            g = -1
            b = -1
        End If
End Sub