Private Sub Command1_Click() Dim a As String a = Mid(Text2,...

Read More »

Private Sub Command1_Click() Dim A As String A = Mid(Text1,...

Read More »

Private Sub Cmdlagi_Click() Txtkt = "" Txtjk = "" Txtht...

Read More »

Private Sub Command1_Click() Dim A As String A = Mid(Combo1,...

Read More »

Private Sub CboKode_Click() Dim s As String s = Mid(CboKode,...

Read More »