TUGAS 4.2
Private Sub Cmdkeluar_Click() End End Sub Private Sub Cmdulang_Click() Txtgajipokok.SetFocus txtgajipoko = “” Txttunjangan = “” Txtpotongan = “” Txtgajikotor = “” Txtpajak = “” Txtgajiditerima = “” End Sub Private Sub Txtgajipokok_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txttunjangan.SetFocus End If End Sub Private Sub Txtpotongan_KeyPress(KeyAscii As Integer) If KeyAscii… Read More TUGAS 4.2