LabQ5

[Modul] Public Sub TB_Zone(frm As Form, Optional vntUseScaleValues As Variant) Dim bUseScaleValues As Boolean If Not IsMissing(vntUseScaleValues) Then bUseScaleValues = vntUseScaleValues End If With frm If bUseScaleValues Then TB_ZoneLeft = .ScaleLeft + .Left TB_ZoneTop = .ScaleTop + .Top TB_ZoneWidth = .ScaleWidth TB_ZoneHeight = .ScaleHeight Else TB_ZoneLeft = .Left TB_ZoneTop = .Top TB_ZoneWidth = .Width TB_ZoneHeight = .Height End If End With End Sub Public Sub TB_CenterForm(frm As Form, Optional vntOffsetLeft As Variant, Optional vntOffsetTop As Variant, Optional vntConsiderTaskbar As Variant) Dim lLeft As Long, lTop As Long Dim lOffsetLeft As Long Dim lOffsetTop As Long Dim bConsiderTaskbar As Boolean If Not IsMissing(vntOffsetLeft) Then lOffsetLeft = vntOffsetLeft End If

Sekedar mengcopy-kan Ocx & Dll ke System tanpa melakukan registrasi RegSVR32.exe Saya mensiasatinya dengan membuat file setup yang intinya mendaftarkan Ocx & Dll yang saya butuhkan. Programmyapun tidak ada yang istimewa yang penting Ocx & Dll terdaftar di System. Cobalah Form Entri Siswa Form Entri Siswa salah satu contoh Program yang menggunakan XP.OCX untuk Button-nya. Ini Video Tutorial-nya Cara Mendaftarkan Dll dan Ocx Pada Komputer