If My.Computer.Clipboard.ContainsImage = True Then
RichTextBox1.Paste()
Else
Dim Message As String
Message = "Le presse papier est vide appuyez sur la touche #imp écran# ou sur les touches #alt gr + imp écran# et re-cliquez sur ce bouton"
MsgBox(Message)
End If