B4R Tutorial [tool] External Serial Connector

#
# A fatal error has been detected by the Java Runtime Environment:
#
#  EXCEPTION_ACCESS_VIOLATION (0xc0000005) at pc=0x000000007110b5db, pid=11220, tid=10872
#
# JRE version: Java(TM) SE Runtime Environment (9.0+181) (build 9+181)
# Java VM: Java HotSpot(TM) 64-Bit Server VM (9+181, mixed mode, tiered, compressed oops, g1 gc, windows-amd64)
# Problematic frame:
# C  [jSSC-2.8_x86_64.dll+0xb5db]
#
# No core dump will be written. Minidumps are not enabled by default on client versions of Windows
#
# An error report file with more information is saved as:
# C:\Daten\b4\ztools\B4RSER~1\Objects\hs_err_pid11220.log
#
# If you would like to submit a bug report, please visit:
#   http://bugreport.java.com/bugreport/crash.jsp
# The crash happened outside the Java Virtual Machine in native code.
# See problematic frame for where to report the bug.
#

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("1")
    MainForm.Show
    DataFolder = File.DirData("SerialConnector")
    serial.Initialize("")
    Wait For (GetPortsNames) Complete (unused As Boolean)
    cmbPort.Items.AddAll(PortsNames.Values)
    If File.Exists(File.DirApp, settingsFile) Then
        Dim m As Map = File.ReadMap(File.DirApp, settingsFile)
        If m.ContainsKey("port") Then
            Dim SavedPort As String = m.Get("port")
            If PortsNames.ContainsKey(SavedPort) Then
                cmbPort.SelectedIndex = cmbPort.Items.IndexOf(PortsNames.Get(SavedPort))
            End If
        End If
        chkReset.Checked = m.Get("reset")
    End If
    If cmbPort.SelectedIndex = -1 Then cmbPort.SelectedIndex = cmbPort.Items.Size - 1
    udpListener.Initialize2("udp", 51042, 8192, True, True)
    GetPortsNames
End Sub