Private Sub OKButton_Click()
    Dim intStart As Long
    Dim strFile As String
 
    strFile = VBInstance.ActiveVBProject.FileName
    VBInstance.ActiveVBProject.BuildFileName = <PFAD>
    intStart = InStrRev(strFile, "\")
    strFile = Mid(strFile, 1, intStart - 1)
    VBInstance.ActiveVBProject.VBE.MainWin    'Hier muss das ICON gesetzt werden
    VBInstance.ActiveVBProject.MakeCompiledFile
End Sub