Program Sürüm Numarası

Private Sub Command1_Click()
Me.Caption = App.Title & " Version " & App.Major & "." & App.Minor & "." & App.Revision
End Sub