Tela Piscando na inicialização

[Lameira]

Olá feras!!! Mais uma vez apelo aos Mestres deste forum. Eu tinha dificuldade em ajustar as dimensões do meu form com o tamanho do monitor, para cada monitor era necessário ajustar o código:

' ajusta dimensão do componente Image de acordo com a tela

imgpri.Width = Me.Width + 2550
      imgpri.Height = Me.Height + 1200
      imgpri.Left = Me.Left - 2000
      imgpri.Top = Me.Top + 2300

..., achei um código na net e colei no meu form, como segue: ' declarações para ajustar dimensão do formulário com o monitor * http://www.daniweb.com/forums/thread140757.html

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
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Const HWND_TOP = 0
Private Const SWP_SHOWWINDOW = &H40

no form_load colei esse código:

'variáveis para definir a relação tela / monitor
Dim cx As Long
Dim cy As Long
Dim RetVal As Long
      Me.WindowState = vbNormal
' retorna a largura da tela cheia (resolução Horizontal).
      cx = GetSystemMetrics(SM_CXSCREEN)
' retorna a altura da tela cheia (resolução Vertical).
      cy = GetSystemMetrics(SM_CYSCREEN)
' chama a API para definir o novo tamanho da janela.
      RetVal = SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, cx, cy, SWP_SHOWWINDOW)
' ajusta dimensão do componente Image de acordo com a tela
      imgpri.Width = Me.Width - 500
      imgpri.Height = Me.Height + 2300
      imgpri.Left = Me.Left + 700
      imgpri.Top = Me.Top + 2300

Só que quando eu inicio o form ele fica no tamanho estabelecido no projeto e depois fica piscando até se ajustar ao tamanho do monitor. Alguns usuários reclamaram disso. Tem como melhorar o código?

grato,

Editado Fevereiro 27, 2011 por kuroi
Adicionar tag CODE