RE:Graphics in VB

[magoochris]

I worked that out in the second forum

Private Sub Frame1_DblClick() 
Frame1.Height = Frame1.Height * 2 
Frame1.Width = Frame1.Width * 2 'Doubles the frame each time 
End Sub

or

Private Sub Frame1_DblClick() 
Frame1.Height = Frame1.Height + 2 
Frame1.Width = Frame1.Width + 2 'adds 20 to the frame each time 
End Sub