Acessar Formulário com ListBox desativado condicionalmente

Caros Colegas,

Gostaria de acessar um formulário "Lista de Atividades" através outro formulário "FrmLogin" e dependendo do usuário logado, acesse o formulário "Lista de Atividades", com a caixa ListBox1 desativada e a listBox2 ativada, e dependendo do usuário, isso ocorra de forma invertida, veja no meu código abaixo, coloquei entre => <= e entre parenteses o que gostaria de implementar, lembrando que o código funciona corretamente, porém sem essa condição.

Private Sub cmdEntrar_Click()
Dim Identificacao As Integer

If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[Usuario] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[Perfil]", "[TBLUsers]", "[Usuario] = '" & Me.txtUser & "'")
Select Case Identificacao
Case 1
stDocName = "Lista de Atividades"
=> (ListBox1) = Ativado)<=
=> (ListBox2) = Desativado)<=

Case 2
stDocName = "Lista de Atividades"
=>(ListBox1 = Desativado)<=
=>(ListBox2 = Ativado )<=
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

End Sub

Obrigado pela contribuição de todos,
Abs,
Cleniro,