Sub TestNetBtn_LongClick
RTP.CheckAndRequest(RTP.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = True Then
NetDir.Visible = True
NetDir.Text = File.DirRootExternal & "/Skdata"
UserName.Text = "Demo"
Password.Text = "1X2X3XDemo"
End If
End Sub