hesap makinesi

Dim koya, a, b, f, m, k, ka Private Sub Command1_Click() If (f = 0) sen Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "1" End Sub Private Sub Command1_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) sen End End If End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As...