Private Sub Form_Load()
    sevGrid1.BackColor = vbBlue
    Picture1.BackColor = vbRed
    Picture1.Top = 500
    Picture1.Width = 500
    Picture1.Left = 100
    Picture1.Height = 500
    sevTabStrip1.ActiveTab = 2
End Sub
 
Private Sub Form_Resize()
sevTabStrip1.Top = 100
sevTabStrip1.Left = 100
sevTabStrip1.Width = Me.Width - 300
sevTabStrip1.Height = Me.Height - 800
 
sevGrid1.Top = 400
sevGrid1.Height = sevTabStrip1.Height - 650
sevGrid1.Left = 15
sevGrid1.Width = sevTabStrip1.Width - 45
 
 
Me.Refresh
sevTabStrip1.Refresh
sevTabStrip1.Refresh
DoEvents
 
End Sub