如果你生成exe的时候，会看到可以填版本号。如果用代码提取，看这里。

新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    MsgBox "Version: " & App.Major & "." & App.Minor & "." & App.Revision
End Sub