Sub btnRead_Click
Dim s As String
Dim o As Object
If splist.Size = 1 Then
sp.Open(splist.Get(0))
sp.SetParams(115200,8,1,0)
'o=sp.GetInputStream
'o=sp.GetOutputStream
'astream.Close
astream.Initialize(sp.GetInputStream,sp.GetOutputStream,"astream")
'astream.InitializePrefix(sp.GetInputStream, True, sp.GetOutputStream, "astream")
End If
End Sub