Memeriksa Apakah Project Telah Disimpan - VB6 Add-Ins

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    If IsProjectSaved Then 
        MsgBox "Project telah disimpan" 
    Else 
        MsgBox "Project belum disimpan" 
    End If 
End Sub 
 
'untuk mengetahui apakah project telah disimpan 
Public Function IsProjectSaved() As Boolean 
    IsProjectSaved = Not (VBInstance.ActiveVBProject.FileName = "") 
End Function