Código PHP:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox.Image.Save(My.Application.Info.DirectoryPath & "\Temporal.bmp")
FileOpen(1, "C:\Lista.txt", OpenMode.Output)
Print(1, My.Application.Info.DirectoryPath & "\Temporal.bmp")
FileClose(1)
Dim O As New System.IO.StreamReader("C:\Lista.txt")
Dim ruta As String
ruta = O.ReadToEnd
O.Close()
CopiarImagen(ruta, Form1.cur + "\temporal2.bmp")
presiono = True
Me.Close()
End Sub