FORMULARIOS

Private Sub Command1_Click()
On Error GoTo ErroForm
Dim v As Integer, nome As String
For v = 0 To Forms.Count - 1
  nome = nome & Forms(v).Name
Next
MsgBox nome
Exit Sub
ErroForm:
MsgBox Err.Number

End Sub

Sub FormFinder(FileName As String, Lst As ListBox)
    Dim FreeF As Variant
    Dim BByte As Variant
    Dim FChr As String
    Dim CountDown As Variant
    Dim SpaceByte As String
    Dim CountDownAgain As Variant
    Dim SecondCount As String
    Dim LastCount As Variant
    FreeF = FreeFile
    Open FileName$ For Binary Access Read As #FreeF
    BByte = 32000
    FChr$ = Chr(0) + Chr(255) + Chr(1)


    For CountDown = 1 To LOF(FreeF) Step BByte
        SpaceByte$ = Space(BByte)
        Get #FreeF, CountDown, SpaceByte$
TAgain:


        If InStr(1, SpaceByte$, FChr$, 1) Then
            CountDownAgain = InStr(1, SpaceByte$, FChr$, 1)
            SecondCount$ = Mid(SpaceByte$, CountDownAgain + 6, 22)


            If InStr(1, SecondCount$, Chr(46) + Chr(102) + Chr(114) + Chr(109), 1) Then
                LastCount = InStr(SecondCount$, Chr(0))
                SecondCount$ = Mid(SecondCount$, 1, LastCount - 1)
                Lst.AddItem SecondCount$
            End If
            SpaceByte$ = Mid(SpaceByte$, CountDownAgain + 4)
            GoTo TAgain
        End If
    Next CountDown
    Close #FreeF
End Sub

Private Sub Command1_Click()
FormFinder App.Path & "\project1.exe", List1
End Sub

User1:
Form1
Form2
Form3

User2:
Form2

então vc fazer o login do usuário:
User2 então vc no formulário central(MDI), por exemplo onde vai ter os botoes, menus ae vc coloca:

if login = user2 then
mnCadastro.enabled = false ' o que seria o FORM1
mnFornecedores.enabled = false ' o que seria o FORM3
mnRelatorios.enabled = true ' o que seria o FORM2
endif

if login = user1 then
mnCadastro.enabled = true ' o que seria o FORM1
mnFornecedores.enabled = true ' o que seria o FORM3
mnRelatorios.enabled = true ' o que seria o FORM2
endif