Private Sub Command3_Click()
    
    Dim exePath As String
    Dim parameters As String
    
    exePath = "D:\qr\Print_Picture.exe"
    parameters = "EPSON TM-L90 Liner-Free,qr.png"
    
    Shell exePath & " " & parameters, vbNormalFocus
    
End Sub