Imports System.Threading Label1.Text = "70%縮小しています" Me.Refresh() If CheckBox1.Checked = True Then Try IllApp.DoScript("Reduction70", "VB60") While IllApp.ActionIsRunning = True Thread.Sleep(100) End While Catch ex As Exception MsgBo…

IllDoc.Close(AiSaveOptions.aiDoNotSaveChanges)

If Not Illapp.Visible Then Illapp.Quit() If Not Illapp Is Nothing Then System.Runtime.InteropServices.Marshal.ReleaseComObject(Illapp) End If

Dim Fs As New List(Of String) Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then 'コントロール内にドラッグされたとき実…