Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Using a Function in a DLL

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long     Public Const SM_SWAPBUTTON = 23     Sub ShowHands()        If GetSystemMetrics(SM_SWAPBUTTON) = False Then            MsgBox "Your mouse is right-handed!"        Else            MsgBox "Your mouse is left-handed!"         End If     End Sub