Info.Width - 2 * Screen.TwipsPerPixelX
    lstIni.Move 2 * Screen.TwipsPerPixelX, 2 * Screen.TwipsPerPixelY, lL - 2 *
     Screen.TwipsPerPixelY, Me.ScaleHeight - 4 * Screen.TwipsPerPixelY
    pnlButtons.Move lL, lstIni.Top
    fraInfo.Move lL
End Sub

Private Sub lstIni_Click()
Dim sItem As String
Dim iPos As Long
    If (lstIni.ListIndex &gt; -1) Then
        If (lstIni.ItemData(lstIni.ListIndex) = -1) Then
            sItem = lstIni.List(lstIni.ListIndex)
            ' Key:
            txtInfo(1) = Mid$(