Listing 4 looks like this...

Option Explicit
Dim mCap As Panel
Dim mNum As Panel
Dim mIns As Panel
Dim mScrl As Panel
Dim mTimer As Panel
Dim mDTimer As Panel

 
Public Property Set CapLock(Value As Panel)
Set mCap = Value
If Not mCap Is Nothing Then mCap.Enabled = Cap.Value

End Property


Public Property Get CapLock() As Panel
Set CapLock = mCap

End Property

 
Private Sub cap_Change()
If Not mCap Is Nothing Then mCap.Enabled = Cap.Value

End Sub

 
Public Property Set InsLock(Value As Panel)
Set mIns = Value
If Not mIns Is Nothing Then mIns.Enabled = ins.Value

End Property
 

Public Property Get InsLock() As Panel
Set InsLock = mIns

End Property
 

Private Sub Form_Unload(Cancel As Integer)
Set mCap = Nothing
Set mNum = Nothing
Set mIns = Nothing
Set mScrl = Nothing
Set mTimer = Nothing
Set mDTimer = Nothing

End Sub
 

Private Sub ins_Change()
If Not mIns Is Nothing Then mIns.Enabled = ins.Value

End Sub
 

Public Property Set NumLock(Value As Panel)
Set mNum = Value
If Not mNum Is Nothing Then mNum.Enabled = num.Value

End Property


Public Property Get NumLock() As Panel
Set NumLock = mNum

End Property
 

Private Sub num_Change()
If Not mNum Is Nothing Then mNum.Enabled = num.Value

End Sub

 
Public Property Set ScrlLock(Value As Panel)
Set mScrl = Value
If Not mScrl Is Nothing Then mScrl.Enabled = scrl.Value

End Property

 
Public Property Get ScrlLock() As Panel
Set ScrlLock = mScrl

End Property

 
Private Sub scrl_Change()
If Not mScrl Is Nothing Then mScrl.Enabled = scrl.Value

End Sub

 
Public Property Set DateTimer(Value As Panel)
Set mDTimer = Value
If Not mDTimer Is Nothing Then Timer1_Timer

End Property

 
Public Property Get DateTimer() As Panel
Set DateTimer = mDTimer

End Property

 
Public Property Set Timer(Value As Panel)
Set mTimer = Value
If Not mTimer Is Nothing Then Timer1_Timer

End Property

 
Public Property Get Timer() As Panel
Set Timer = mTimer

End Property

 
Private Sub Timer1_Timer()
If Not mTimer Is Nothing Then
mTimer.Text = Time
End If

If Not mDTimer Is Nothing Then
mDTimer.Text = Date
End If

End Sub

---

[HOME] [TABLE OF CONTENTS] [SEARCH]