FormCenterVB5
Sub CentraForm (x as Form) With x .top = (Screen.Height - .Height)\2 .left = (Screen.Width - .Width)\2 End With End Sub
Sub CentraForm (x as Form)
With x
.top = (Screen.Height - .Height)\2
.left = (Screen.Width - .Width)\2
End With
End Sub
( formcentervb5.html )- by Paolo Puglisi
- Modifica del 17/12/2023