If Position = 1 Then
Dim ivImage As ImageView
Dim cc As ContentChooser
ivImage.Initialize("ivImage")
imgView = ivImage
cc.Initialize("CC")
cc.Show("image/*","Choose an image file.")
End If
Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
Msgbox("called","called")
If Success = True Then
imgView.Bitmap = LoadBitmap(Dir, FileName)
pnlEditor.AddView(imgView,pnlEditor.Width/2-50, pnlEditor.Height/2-50, 100, 100)
vw = imgView
Msgbox("This works!","Worked")
Else
Msgbox("Image failed to load.","Error")
End If
End Sub