CAPTURE D'ÉCRAN AU FORMAT BMP / JPG AVEC RÉGLAGE DE LA QUALITÉ ET REDIMENSIONNEMENT

'exemple d'utilisation:
Private Declare Function sshot Lib "SSHOT8514" (ByVal chemin As String, ByVal typeimage As String, ByVal qualite As Integer, ByVal xdim As Integer, ByVal ydim As Integer) As Integer


Private Sub Command1_Click()
Dim retour As Integer

'faire une cature d'écran au format jpg / qualité à 100% / pas de redimensionnement
retour = sshot(App.Path & "\resultat.jpg", "jpg", 100, 0, 0)

'faire une cature d'écran au format bmp / qualité à 100% / redimensionnée en 640 par 480
'retour = sshot(App.Path & "\resultat.bmp", "bmp", 100, 640, 480)
End Sub