Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

Private Sub cmdbatal_Click()

kosong

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_Load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjurusan.Text = “”

txtpstudi.Text = “”

txttmasuk.Text = “”

txtnurut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjurusan.Text = “”

txtpstudi.Text = “”

txttmasuk.Text = “”

txtnurut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

txttmasuk.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtjurusan.Text = “Sistem Informasi”

ElseIf S = “2” Then

txtjurusan.Text = “Manajemen Informatika”

ElseIf S = “3” Then

txtjurusan.Text = “Tehnik Informatika”

ElseIf S = “4” Then

txtjurusan.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(txtnpm.Text, 4, 2)

If S = “01” Then

txtpstudi.Text = “Strata Satu”

ElseIf S = “02” Then

txtpstudi.Text = “Diploma Tiga”

ElseIf S = “03” Then

txtpstudi.Text = “Diploma Empat”

ElseIf S = “04” Then

txtpstudi.Text = “Diploma Dua”

End If

txtnurut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub cbokode_Change()

Case “APPLE MC965”

Txtmerk.Text = “APPLE MACBOOK AIR MC965”

Txths.Text = “12800000”

Case “APPLE MC966”

Txtmerk.Text = “APPLE MACBOOK AIR MC966”

Txths.Text = “15800000”

Case “APPLE MC968”

Txtmerk.Text = “APPLE MCBOOK AIR MC968”

Txths.Text = “9900000”

Case “APPLE MC969”

Txtmerk.Text = “APPLE MCBOOK AIR MC969”

Txths.Text = “11900000”

Case “APPLE MC700”

Txtmerk.Text = “APPLE MACBOOK PRO MC700”

Txths.Text = “10800000”

Case “APPLE MC721”

Txtmrek.Text = “Apple MacBook PRO MC721”

Txths.Text = “15900000”

Case “APPLE MC723”

Txtmerk.Text = “APPLE MACBOOK PRO MC723”

Txths.Text = “19300000”

Case “APPLE MC724”

Txtmerk.Text = “Apple MacBook Pro MC724”

Txths.Text = “13700000”

Case “APPLE MC311”

Txtmerk.Text = “APPLE MACBOOK PRO MC311”

Txths.Text = “24200000”

Case “APPLE MC313”

Txtmerk.Text = “APPLE MACBOOK PRO MC313”

Txths.Text = “11900000”

Case “APPLE MC314”

Txtmerk.Text = “APPLE MACBOOK PRO MC314”

Txths.Text = “14700000”

Case “APPLE MC318”

Txtmerk.Text = “APPLE MACBOOK PRO MC318”

Txths.Text = “17600000”

Case “APPLE MC322”

Txtmerk.Text = “APPLE MACBOOK PRO MC322”

Txths.Text = “21300000”

Case “APPLE MC965”

Txtmerk.Text = “Apple MacBook Air MC965”

Txths.Text = “12800000”

Case “APPLE MC966”

Txtmerk.Text = “Apple MacBook Air MC966”

Txths.Text = “15800000”

End Select

Txtjj.SetFocus

End Sub

Private Sub Cmdhitunglagi_Click()

cbokode.Text = “”

Txtmerk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdproses_Click()

Dim merk As String

Dim harga, a, b, s, e As Variant

kode = Mid(cbokode.Text, 7, 5)

If kode = “MC965” Then

merk = “Apple MacBook Air MC965”

harga = “12800000”

ElseIf kode = “MC966” Then

merk = “Apple MacBook Air MC966”

harga = “15800000”

ElseIf kode = “MC968” Then

merk = “Apple MacBook Air MC968”

harga = “9900000”

ElseIf kode = “MC969” Then

merk = “Apple MacBook Air MC969”

harga = “11900000”

ElseIf kode = “MC700” Then

merk = “Apple MacBook Pro MC700”

harga = “10800000”

ElseIf kode = “MC721” Then

merk = “Apple MacBook Pro MC721”

harga = “15900000”

ElseIf kode = “MC723” Then

merk = “Apple MacBook Pro MC723”

harga = “19300000”

ElseIf kode = “MC724” Then

merk = “Apple MacBook Pro MC724”

harga = “13700000”

ElseIf kode = “MC311” Then

merk = “Apple MacBook Pro MC311”

harga = “24200000”

ElseIf kode = “MC313” Then

merk = “Apple MacBook Pro MC313”

harga = “11900000”

ElseIf kode = “MC314” Then

merk = “Apple MacBook Pro MC314”

harga = “14700000”

ElseIf kode = “MC318” Then

merk = “Apple MacBook Pro MC318”

harga = “17600000”

ElseIf kode = “MC322” Then

merk = “Apple MacBook Pro MC322”

harga = “21300000”

ElseIf kode = “MC965” Then

merk = “Apple MacBook Ari MC965”

harga = “12800000”

ElseIf kode = “MC966” Then

merk = “Apple MacBook Ari MC966”

harga = “15800000”

End If

Txtmerk.Text = merk

Txths.Text = harga

a = Val(Txths.Text)

b = Val(Txtjj.Text)

penjualan = a * b

Txthp.Text = penjualan

Select Case Txthp.Text

Case Is > 140000000

discount = 0.15 * penjualan

Case Is > 135000000

discount = 0.1 * penjualan

Case Is > 130000000

discount = 0.05 * penjualan

Case Is > 125000000

discount = 0.02 * penjualan

End Select

Txtdis.Text = discount

Txthp.Text = penjualan

s = Val(Txthp.Text)

e = Val(Txtdis.Text)

total = s + e

Txttb.Text = total

End Sub

Private Sub Form_Load()

cbokode.AddItem “Apple MC965 MacBook Air”

cbokode.AddItem “Apple MC966 MacBook Air”

cbokode.AddItem “Apple MC968 MacBook Air”

cbokode.AddItem “Apple MC969 MacBook Air”

cbokode.AddItem “Apple MC700 MacBook Pro”

cbokode.AddItem “Apple MC721 MacBook Pro”

cbokode.AddItem “Apple MC723 MacBook Pro”

cbokode.AddItem “Apple MC724 MacBook Pro”

cbokode.AddItem “Apple MC311 MacBook Pro”

cbokode.AddItem “Apple MC313 MacBook Pro”

cbokode.AddItem “Apple MC314 MacBook Pro”

cbokode.AddItem “Apple MC318 MacBook Pro”

cbokode.AddItem “Apple MC322 MacBook Pro”

cbokode.AddItem “Apple MC965 MacBook Air”

cbokode.AddItem “Apple MC966 MacBook Air”

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub Txtmerk_Change()

End Sub

Private Sub txtnama_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNik.SetFocus

End If

End Sub

Private Sub cmdproses_Click()

Txttahun = Left(TxtNik.Text, 4)

G = Mid(TxtNik.Text, 5, 1)

If G = “A” Then

Txtgol = “A”

txtjabatan = “Manager”

txtgapok = “4000000?”

txttun = “1025000?”

ElseIf G = “B” Then

Txtgol = “B”

txtjabatan = “Ka. Seksi”

txtgapok = “3500000?”

txttun = “975000?”

ElseIf G = “C” Then

Txtgol = “C”

txtjabatan = “Staff”

txtgapok = “3000000?”

txttun = “925000?”

End If

S = Mid(TxtNik.Text, 7, 1)

If S = “S” Then

txtkode = “S”

Txtstatus = “Single”

ElseIf S = “M” Then

txtkode = “M”

Txtstatus = “Menikah”

ElseIf S = “J” Then

txtkode = “J”

Txtstatus = “Janda”

ElseIf S = “D” Then

txtkode = “D”

Txtstatus = “Duda”

End If

B = Right(TxtNik.Text, 3)

If B = “KEU” Then

txtbagian = “Accounting”

ElseIf B = “ADM” Then

txtbagian = “Administrasi”

ElseIf B = “SDM” Then

txtbagian = “General Affair”

ElseIf B = “EDP” Then

txtbagian = “IT Unit”

ElseIf B = “SPM” Then

txtbagian = “Security”

End If

txttotal = Val(txtgapok.Text) + Val(txttun.Text)

End Sub

Private Sub cmdlagi_Click()

Txtnama.SetFocus

Txtnama = “”

TxtNik = “”

Txtgol = “”

txtkode = “”

Txtstatus = “”

Txttahun = “”

txtjabatan = “”

txtbagian = “”

txtgapok = “”

txttun = “”

txttotal = “”

End Sub

Private Sub cmdbatal_Click()

Txtnama.SetFocus

Txtnama = “”

TxtNik = “”

Txtgol = “”

txtkode = “”

Txtstatus = “”

Txttahun = “”

txtjabatan = “”

txtbagian = “”

txtgapok = “”

txttun = “”

txttotal = “”

End Sub

Private Sub cmdkeluar_Click()

p = MsgBox(“Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “informasi”)

If p = vbOK Then

End

End If

End Sub

Perhitungan gaji dosen

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

Private Sub Form_Load()

cbogol.AddItem “I”

cbogol.AddItem “II”

cbogol.AddItem “III”

cbogol.AddItem “IV”

End Sub

Private Sub cbogol_Click()

Dim gapok, tunjangan, pajak, total As Variant

Select Case cbogol.Text

Case “I”

gapok = 2000000

tunjangan = 200000

Case “II”

gapok = 3000000

tunjangan = 300000

Case “III”

gapok = 4000000

tunjangan = 400000

Case “IV”

gapok = 5000000

tunjangan = 500000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunj.Text = tunjangan

txtpajak.Text = pajak

txtterima.Text = total – pajak

End Sub

Private Sub cmdbatal_Click()

txtnidn.SetFocus

txtnidn.Text = “”

Txtnama.Text = “”

cbogol.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txtterima.Text = “”

End Sub

Private Sub cmdlagi_Click()

txtnidn.SetFocus

txtnidn.Text = “”

Txtnama.Text = “”

cbogol.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txtterima.Text = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

 

Private Sub Cmdproses_Click()

KT = Left(txtkt.Text, 3)

If KT = “BIM” Then

JK = “BIMA”

HT = “50000″

JB = “16.00″

ElseIf KT = “EKO” Then

JK = “EKONOMI”

HT = “35000″

JB = “19.00″

ElseIf KT = “MUT” Then

JK = “MUTIARA”

HT = “23000″

JB = “17.00″

ElseIf KT = “SEN” Then

JK = “SENJA”

HT = “15000″

JB = “20.00″

End If

txtkt.Text = KT

txtht.Text = HT

txtjk.Text = JK

txtjb.Text = JB

txtjt.SetFocus

End Sub

Private Sub Txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)

txttotalp.SetFocus

End If

End Sub

Private Sub Cmdlagi_Click()

txtkt.SetFocus

txtkt = “”

txtht = “”

txtjk = “”

txtjb = “”

txtjt = “”

txttotalp = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Cbonpm_Click()

Dim NAMA, JURUSAN, HM As String

Select Case Cbonpm.Text

Case “12100061”

NAMA = “RIAN HIDAYAT”

JURUSAN = “SISTEM INFORMATIKA”

Case “12100089”

NAMA = ” SULIS WAHYUNINGSIH”

JURUSAN = “SISTEM INFORMASI”

Case “12100060”

NAMA = “M. LUTFI ALI”

JURUSAN = “SISTEM INFORMASI”

Case “12201003”

NAMA = “RIAN ADITIA”

JURUSAN = “MANAJEMEN INFORMATIKA”

End Select

TXTNAMA.Text = NAMA

TXTJURUSAN.Text = JURUSAN

TXTNQ.SetFocus

End Sub

 

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

TXTNAMA.Text = “”

TXTJURUSAN.Text = “”

TXTNQ.Text = “”

TXTNT.Text = “”

TXTNUTS.Text = “”

TXTNUAS.Text = “”

TXTNAK.Text = “”

TXTHM.Text = “”

End Sub

 

Private Sub CMDKELUAR_Click()

End

End Sub

 

Private Sub CMDPROSES_Click()

Dim NAK As Integer

Dim HM As String

NQ = Val(TXTNQ.Text)

NT = Val(TXTNT.Text)

NUTS = Val(TXTNUTS.Text)

NUAS = Val(TXTNUAS.Text)

NAK = (NQ + NT + NUTS + NUAS) / 4

TXTNAK.Text = NAK

Select Case TXTNAK.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

TXTHM.Text = HM

End Sub

 

Private Sub Form_Load()

Cbonpm.AddItem “12100061”

Cbonpm.AddItem “12100060”

Cbonpm.AddItem “12201003”

Cbonpm.AddItem “12100074”

End Sub

 

 

Private Sub TXTNQ_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNT.SetFocus

End If

End Sub

 

 

Private Sub TXTNT_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNUTS.SetFocus

End If

End Sub

 

 

Private Sub TXTNUTS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNUAS.SetFocus

End If

End Sub

Private Sub ChkBOLD_Click()

‘Membuat Teks Tebal

If ChkBOLD.Value = 1 Then

lblTeks.FontBold = True

Else

lblTeks.FontBold = False

End If

End Sub

 

Private Sub ChkITALIC_Click()

‘Membuat Teks Miring

If ChkITALIC.Value = 1 Then

lblTeks.FontItalic = True

Else

lblTeks.FontItalic = False

End If

End Sub

 

Private Sub ChkSTRIKEOUT_Click()

‘Membuat Teks Strikeout

If ChkSTRIKEOUT.Value = 1 Then

lblTeks.FontStrikethru = True

Else

lblTeks.FontStrikethru = False

End If

End Sub

 

Private Sub ChkUNDERLINE_Click()

‘Membuat Teks Underline

If ChkUNDERLINE.Value = 1 Then

lblTeks.FontUnderline = True

Else

lblTeks.FontUnderline = False

End If

End Sub

 

Private Sub CMDEXIT_Click()

End

End Sub

 

 

 

Private Sub OptBLUE_Click()

‘Membuat Teks Berwarna Biru

lblTeks.ForeColor = vbBlue

End Sub

 

Private Sub OptGREEN_Click()

‘Membuat Teks Berwarna Hijau

lblTeks.ForeColor = vbGreen

End Sub

 

Private Sub OptRED_Click()

‘Membuat Teks Berwarna Merah

lblTeks.ForeColor = vbRed

End Sub

 

Private Sub OptYELLOW_Click()

‘Membuat Teks Berwarna Kuning

lblTeks.ForeColor = vbYellow

End Sub

 

Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – (Text3.Text)
Text5.Text = Val(Text4.Text) * 0.1
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

1.perkalian dua bilangan

Normal
0

false
false
false

IN
X-NONE
X-NONE

MicrosoftInternetExplorer4

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin-top:0in;
mso-para-margin-right:0in;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:”Times New Roman”;
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

Private Sub Command1_Click()

 

    Text3.Text = Val(Text1.Text) * Val(Text2.Text)

 

End Sub

 

 

Private Sub Command2_Click()

 

    Text1.SetFocus

 

    Text1 = “”

 

    Text2 = “”

 

    Text3 = “”

 

End Sub

 

 

Private Sub command3_Click()

 

    Unload Me

 

End Sub

 

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

 

    If Ascii = 13 Then

 

    Text2.SetFocus

 

    End If

 

End Sub

 

Tugas 1

Private Sub CMDBatal_Click()
TXTNPM.SetFocus
TXTNPM = ” ”
TXTNM = ” ”
TXTPS = ” ”
TXTJUR = ” ”
TXTAL = ” ”
End Sub

Private Sub CMDKeluar_Click()
Unload Me
End Sub

Private Sub CMDLagi_Click()
TXTNPM.SetFocus
TXTNPM = ” ”
TXTNM = ” ”
TXTPS = ” ”
TXTJUR = ” ”
TXTAL = ” ”
End Sub

Private Sub Form_Load()

End Sub

Private Sub TXTJUR_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTAL.SetFocus
End If
End Sub

Private Sub TXTNM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTPS.SetFocus
End If
End Sub
Private Sub TXTNPM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNM.SetFocus
End If
End Sub
Private Sub TXTPS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTJUR.SetFocus
End If
End Sub

 

 

Tugas 2

 

Private Sub CMDBatal_Click()
TXTKB.SetFocus
TXTKB = ” ”
TXTNB = ” ”
TXTHB = ” ”
TXTJB = ” ”
TXTJBY = ” ”
End Sub

Private Sub CMDKeluar_Click()
Unload ne
End Sub

Private Sub CMDLagi_Click()
TXTKB.SetFocus
TXTKB = ” ”
TXTNB = ” ”
TXTHB = ” ”
TXTJB = ” ”
TXTJBY = ” ”
End Sub

Private Sub Label8_Click()

End Sub

Private Sub TXTJBY_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTJBY.Text = Val(TXTHB.Text) * Val(TXTJB.Text)
End If
End Sub

Private Sub TXTHB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTJB.SetFocus
End If
End Sub

Private Sub TXTJB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTJBY.SetFocus
End If
End Sub

Private Sub TXTKB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNB.SetFocus
End If
End Sub

Private Sub TXTNB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTHB.SetFocus
End If
End Sub

Welcome to WordPress.com! This is your very first post. Click the Edit link to modify or delete it, or start a new post. If you like, use this post to tell readers why you started this blog and what you plan to do with it.

Happy blogging!