How to use Numlock in VB 6 for design a tiny calulate project
 

Dim s, op, op1, op2 As String Private Sub cmd0_Click() s = s & cmd0.Caption txtresult = s End Sub Private Sub cmd1_Click() s = s & cmd1.Caption txtresult = s