You could always add a timer and refresh the control periodically.
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Const WM_SETREDRAW = &HB
Private Sub Timer1_Timer()
SendMessage Me.hwnd, WM_SETREDRAW, 0, 0
File1.Refresh
SendMessage Me.hwnd, WM_SETREDRAW, 1, 0
End Sub
"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."