[Reference]Snippets

My.Computer.FileSystem.CopyFile("FileLocaion", "FileDestination")

If Me.WindowState = FormWindowState.Normal Then      
My.Settings.WindowSize = Me.Size
End If

If Me.WindowState = FormWindowState.Normal Then      
My.Settings.WindowLocation = Me.Location
End If

If Not My.Settings.WindowSize.Width = 0 Then
Me.Size = My.Settings.WindowSize
End If

If Not My.Settings.WindowLocation.X = 0 Then
Me.Location = My.Settings.WindowLocation
End If

If My.Settings.CallUpgrade = True Then
My.Settings.Upgrade()
My.Settings.CallUpgrade = False
End If

Public Structure MOUSEINPUT
        Public dx As Integer
        Public dy As Integer
        Public mouseData As Integer
        Public dwFlags As Integer
        Public dwtime As Integer

Public Sub MouseClick()

        Dim inputme(0) As INPUT_TYPE

        inputme(0).xi.dx = 0
        inputme(0).xi.dy = 0
        inputme(0).xi.mouseData = 0
        inputme(0).xi.dwFlags = M_MOVE + M_LD + M_LU
        inputme(0).xi.dwtime = 0
        inputme(0).xi.dwExtraInfo = 0
        inputme(0).dwType = INPUT_MOUSE

        SendInput(1, inputme(0), Len(inputme(0)))
        SetCursorPos(xyC)

    End Sub

Dim mce As Boolean

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Type POINTAPI
    x As Long
    y As Long
End Type

Private Sub Button1_Click()
    mse = True
    intRetVal = SetCapture(hwnd)
End Sub

Private Sub Form_Load()
    
    mse = False
    
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim window As Long
    Dim buffer As String * 1024
    Dim ptPoint As POINTAPI
   
    If mse Then
    
        ptPoint.x = x
        ptPoint.y = y
        retval = ClientToScreen(hwnd, ptPoint)

        window = WindowFromPoint(ptPoint.x, ptPoint.y)
        lngRetVal = GetWindowText(window, buffer, 1024)
        Text1.Text = buffer
    End If
End Sub

Public Const SND_ALIAS = &H10000    
Public Const SND_ASYNC = &H1         
Public Const SND_LOOP = &H8         
Public Const SND_NOWAIT = &H2000      
Public Const SND_SYNC = &H0

Dim sps As Long
sps = sndPlaySound("location/file.wav", SND_SYNC)

Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long

Dim w As Long

w = waveOutGetNumDevs()

If i > 0 Then         (there would have to be atleast 1 sound card)
      MsgBox "Wav Compatible"      
Else
      MsgBox "Non Wav Comp."      
End If