Imports System
Imports System.Windows.Forms
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing.Imaging
Imports System.Drawing
Public Class MainClass
Shared Sub Main()
Dim file_name As String = "test.wmf"
' Delete the file if it exists.
If Len(Dir$(file_name)) > 0 Then Kill(file_name)
End Sub
End Class
|