ник: Дядя Федор
Private Sub Form_Resize()
On error goto err1
Me.Sfrm_Messeg.Width = Me.WindowWidth - 250
Me.Sfrm_Messeg.Height = Me.WindowHeight - 1350
exit sub
err1:
'msgbox err.description - это закомментируем
err.clear 'вместо обрвботки - очистим ошибку
End Sub
|
Типа не обрабатывать ошибку. Но куда у тебя все переместиться - тут уж извини.