Noname > 27-08-10, 09:53 AM
Private Sub FormReSize(giatri As Single)
Me.InsideHeight = Me.InsideHeight / giatri
Me.InsideWidth = Me.InsideWidth / giatri
Dim ctrl As Control
For Each ctrl In Me.Controls
ctrl.Height = ctrl.Height / giatri
ctrl.Width = ctrl.Width / giatri
ctrl.Left = ctrl.Left / giatri
ctrl.Top = ctrl.Top / giatri
Next
Me.Repaint
End Sub
Private Sub Command0_Click()
FormReSize 1.1
End Sub
Private Sub Command1_Click()
FormReSize 0.9
End Sub