Private Sub Form_Open(Cancel As Integer)
  DoCmd.Maximize
End Sub

Private Sub Form_Resize()
   Const conMargin As Long = 300
   Dim intOrgWidth As Integer

   Painting = False
   
   If InsideHeight < 4515 Then InsideHeight = 4515: Exit Sub
   If InsideWidth < 6975 Then InsideWidth = 6975: Exit Sub
      intOrgWidth = frmKasa_Stavkai_Subform.Width
    
   'horizontal
     Vraboten.Left = InsideWidth - Vraboten.Width - 220
     Me.cmdClose.Left = InsideWidth - Me.cmdClose.Left - 220
     labVraboten.Left = InsideWidth - (Vraboten.Width * 1.5) - 220
     cboBrDok.Left = InsideWidth - cboBrDok.Width - 220
     labNajdi.Left = InsideWidth - (cboBrDok.Width * 2.5)
     txtVkupno.Width = InsideWidth - conMargin * 20
     frmKasa_Stavkai_Subform.Left = conMargin
     frmKasa_Stavkai_Subform.Width = InsideWidth - conMargin * 2
   'vertical
     frmKasa_Stavkai_Subform.Height = InsideHeight - Section(acHeader).Height - _
     Section(acFooter).Height - frmKasa_Stavkai_Subform.Top - conMargin
   
   Painting = True
End Sub