Отрисовка модальной формы

[AleksandrH]

После открытия модальной формы она отображается "полупрозначной", приходится брать мышой перетаскивать вниз за панель задач и вытискавать обратно, тогда форма прорисовывается как надо.
событие открытия формы обрабатываю:

Private Sub Form_Open(Cancel As Integer)
    Me.Repaint
End Sub

Как сделать что-бы форма открывалась прорисованой? После открытия програмно изменять положения формы?