dilama,

1st of all, why don't you use the built in AutoSize-property? should work fine and you don't need to code anything.

this should work, but you need to set your form's ScaleMode-property to Pixel:

'**********************************************************

Private Sub Form_Resize()
On Error GoTo Err_Form_Resize

With SSSplitter1
.Top = 1
.Left = 1
.Width = Form1.ScaleWidth - 1
.Height = Form1.ScaleHeight - (StatusBar1.Height + 1)
End With

Exit Sub

Err_Form_Resize:
MsgBox Err.Description

End Sub

'**********************************************************

good luck

Sascha