Private Const gap As Long = 100
 
Private Sub Form_Load()
  With Me.sevGrid1
    .Left = gap
    .Top = gap
    .DataMode = Mode_List
    .AllowEdit = True
    .ColumnAdd "", , , , , TYPE_COMBOLIST
    .AddItem "Test"
  End With
End Sub
 
Private Sub Form_Resize()
  With Me.sevGrid1
    .Height = Me.ScaleHeight - 2 * gap
    .Width = Me.ScaleWidth - 2 * gap
    .RefreshEx
  End With
End Sub