使用標准的方式來顯示版本號：X.XX.XXXX
對應的設程在vb6的菜單--工程--（工程名）屬性，彈出的對話框中的“生成”選項卡裡，見下圖：
vb6函數代碼：
- Public Function GetVersion() As String
- Static strVer As String
- If strVer = "" Then
- strVer = Trim$(Str$(App.Major)) & "." & Format$(App.Minor, "##00") & "." & Format$(App.Revision, "0000")
- End If
- GetVersion = strVer
- End Function
運行之後，得到以下結果：
