Ciao per la statusbar
codice:
StatusBar1.Panels(1).Text = "File presenti nella cartella: " & File1.ListCount
per il primo piano:
codice:
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const SWP_SHOWWINDOW = &H40 'visualizza la finestra
Const SWP_NOMOVE = &H2 'Non Muove la finestra (ignora x y)
Const SWP_NOSIZE = &H1 'non ridimensiona la finestra (ignora cx cy)
Const HWND_TOP = 0 ' mette la finestra al livello pił alto
Const HWND_TOPMOST = -1 'Pone la finestra in primo piano al di sopra di tutte le altre.

Private Sub PrimoPiano()
  SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_SHOWWINDOW
End Sub