Prepare test VNC server project for 0.0.1 release

test/Form1.frm

@@ -9,6 +9,17 @@ Begin VB.Form Form1
    ScaleHeight     =   2316
    ScaleWidth      =   3624
    StartUpPosition =   3  'Windows Default
+   Begin VB.Label Label1 
+      AutoSize        =   -1  'True
+      BackStyle       =   0  'Transparent
+      Caption         =   "Label1"
+      Height          =   192
+      Left            =   252
+      TabIndex        =   0
+      Top             =   504
+      UseMnemonic     =   0   'False
+      Width           =   492
+   End
 End
 Attribute VB_Name = "Form1"
 Attribute VB_GlobalNameSpace = False
@@ -20,8 +31,15 @@ Option Explicit
 Private m_oServer As cVncServer
 
 Private Sub Form_Load()
+    Dim sAddress        As String
+    Dim lPort           As Long
+
     Set m_oServer = New cVncServer
     If Not m_oServer.Init("0.0.0.0", 5900) Then
         MsgBox m_oServer.LastError, vbExclamation
+        Unload Me
+    Else
+        m_oServer.Socket.GetSockName sAddress, lPort
+        Label1.Caption = "Waiting for connection on " & sAddress & ":" & lPort
     End If
 End Sub

test/VbVncServer.vbp

@@ -10,13 +10,14 @@ IconForm="Form1"
 Startup="Form1"
 HelpFile=""
 Title="VbVncServer"
+ExeName32="VbVncServer.exe"
 Command32=""
 Name="VbVncServer"
 HelpContextID="0"
 CompatibleMode="0"
-MajorVer=1
+MajorVer=0
 MinorVer=0
-RevisionVer=0
+RevisionVer=1
 AutoIncrementVer=0
 ServerSupportFiles=0
 VersionCompanyName="Unicontsoft"