Sub oOk_Click
Log("Ok")
oOk.Visible = False
oOpnieuw.Enabled=False
oOk.Enabled = False
Panel1.Visible=False
Panel1.Enabled=False
CallSub3(Main,"ShowProgressDialog","Bezig met opslaan...",False)
Panel2.enabled = True
Panel2.Visible = True
camEx.TakePicture
' Sleep(1)
oOpnieuw.Enabled=True
Log("Ok Done")
End Sub