Android Question How to compress the captured photos and then transfer them to Panel1 using this code?

Private Sub Button1_Click
    Wait For (chooser.CaptureImage) Complete (Result As MediaChooserResult)
    ShowMedia(Result)
End Sub

Private Sub ShowMedia (Result As MediaChooserResult)
    If Result.Success Then
        smm.SetMediaFromFile(Panel1, Result.MediaDir, Result.MediaFile, Result.Mime, Null)
    Else
        Panel1.RemoveAllViews
    End If
End Sub

Private Sub Button3_Click
    If EditText1.Text<>"" Then
        Dim outStream As OutputStream
        StartService(Starter)
        Dim tx As String=EditText1.Text
        outStream.InitializeToBytesArray(0)
        Panel1.Snapshot.WriteToStream(outStream, 100, "PNG")
        Dim ar() As Byte = outStream.ToBytesArray
        Starter.Mysql_Jdbc.ExecNonQuery2( "insert into 料库(料图名,料图) VALUES(?, ?)", Array As Object(tx,ar))
        EditText1.Text =""
        Panel1.RemoveAllViews
        EditText1.RequestFocus
        MsgboxAsync("上传成功！","提示")
    Else
        MsgboxAsync("信息不全，禁止上传！","警告")
    End If
End Sub