Public feed #726353

Stuff

public text v1 · immutable
Raw Edit
·published 2007-10-05 03:00 UTC
rendered paste body
Option Explicit

Private lngDisplay As Long

Private Sub cmdClear_Click()
    ' We want to clear the display and all arrays
    lngDisplay = 0
    lblDisp.Caption = ""
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case 48: lblDisp.Caption = lblDisp.Caption & "0"
        Case 49: lblDisp.Caption = lblDisp.Caption & "1"
    End Select
End Sub

Private Sub Form_LostFocus()
    frmCalc.SetFocus
End Sub