VB 6

Private Sub CMDPROSES_Click()
TXTTEKS.Text = " NAMA SAYA : " & TXTNAMA & " LAHIR TGL : " & CTGL & " BULAN : " & CBLN & " TAHUN : " & CTHN
End Sub

Private Sub Form_Activate()
M = 1
Do While M <= 31
CTGL.AddItem M
M = M + 1
Loop
For N = 1 To 12
CBLN.AddItem N
Next
For P = 1988 To 1993
CTHN.AddItem P
Next
TXTNAMA.SetFocus
End Sub