Imports System
Imports System.IO
 
Class kon_win
    Sub Main(ByVal args As String())
        If (args.Length > 0) Then
            write_log("arg(0) " & args(0))
        Else
            Windows.Forms.Application.Run(New Form1())
        End If
    End Sub
 
    Sub write_log(ByVal content As String)
        Err.Clear()
        On Error GoTo errHandler
        Using txt As StreamWriter = File.CreateText( _
          Environment.CurrentDirectory & "\bla.log")
            txt.WriteLine(content)
            txt.Close()
        End Using
        Err.Description = ""
errHandler:
        If Not Err.Description = "" Then
            MsgBox(Err.Description)
        End If
    End Sub
End Class