Stop flickering

Declare Function LockWindowUpdate Lib "user32" ( ByVal hwndLock As Integer ) As Integer

Form1_Load()

'While loading a form
LockWindowUpdate frmTest.hWnd

'show it
fromTest.show

'Unlock
LockWindowUpdate 0