Added PM chat button for PSS

P3D/Network/ChatScreen.vb

@@ -974,7 +974,7 @@ Public Class ChatScreen
     ''' <summary>
     ''' Enters a new PM chat.
     ''' </summary>
-    Private Sub EnterPMChat(ByVal newPMChatName As String)
+    Public Sub EnterPMChat(ByVal newPMChatName As String)
         If PMChats.Keys.Contains(newPMChatName) = False Then
             PMChats.Add(newPMChatName, False)
         End If

P3D/Screens/Inventory/PokegearScreen.vb

@@ -1210,6 +1210,9 @@
                         End If
                     Case 2
                         If sameServer = True Then
+                            Dim chat As New ChatScreen(CurrentScreen)
+                            chat.EnterPMChat(UserName)
+                            Core.SetScreen(chat)
 
                         End If
                     Case 3