resize a datagrid

How do you resize the columns datagrid when you maximize your screen?

Try this.

Code:

---

Option Explicit

Public m_dCol0Factor As Double
Public m_dCol1Factor As Double
Public m_dGridFactor As Double

Private Sub Form_Load()

m_dCol0Factor = DataGrid1.Columns(0).Width / Form1.Width
m_dCol1Factor = DataGrid1.Columns(1).Width / Form1.Width
m_dGridFactor = DataGrid1.Width / Form1.Width


End Sub


Private Sub Form_Resize()

    DataGrid1.Columns(0).Width = Form1.Width * m_dCol0Factor
    DataGrid1.Columns(1).Width = Form1.Width * m_dCol1Factor
    DataGrid1.Width = Form1.Width * m_dGridFactor
   
End Sub

---

------------------
Marty
COGITO EGGO SUM
I think; therefore I am a waffle.