🚀 go-pugleaf

Can anyone translate the following for me ????


' REGISTER.FRM
Option Explicit

Sub cmd_Button_event0000 (p001A As Integer)
    If  p001A = 0 Then
        If  Not fnA68(True, "" & txt_Code) Then
            txt_Code.SetFocus
            Exit Sub
        End If
        Call sub988(Me, fn608("" & txt_Code, ""))
    Else
        Unload frm_Registration
    End If
End Sub

Sub cmd_Button_event0009 (p002E As Integer)
    If  p002E = 0 Then
        gv0064 = gv01E4(452) & " '" & txt_Code & "'"
    Else
        gv0064 = gv01E4(35) & " '" & v_Title & "' " & gv01E4(43)
    End If
    Call subB88(gv0064)
End Sub

Sub cmd_Button_event000B ()
    frm_Goldpoint!v_Dil2.P?C008 = False
End Sub

Sub cmd_Control_MouseDown (Index%, Button As Integer, Shift As Integer, X As
Single, Y As Single)
    Call sub4B8("" & v_Title.P?C024, Index)
End Sub

Sub cmd_Control_MouseUp (Index%, Button As Integer, Shift As Integer, X As
Single, Y As Single)
    If  fn480(Me, Index) Then Call cmd_Button_event0000(1)
End Sub

Sub Form_Activate ()
    v_Border.Refresh
    Screen.MousePointer = 0
End Sub

Sub Form_KeyPress (KeyAscii As Integer)
    If  KeyAscii = 27 Then cmd_Button_event0000 (1)
End Sub

Sub Form_Load ()
    v_Title.P?C024 = gv01E4(1040)
    lbl_Code.Caption = gv01E4(804)
    cmd_Button(0).[$C023?] = gv01E4(824)
    cmd_Button(1).[$C023?] = gv01E4(825)
    txt_RegCode = ""
    For gv0068 = 0 To 5
        txt_Type(gv0068) = ""
        txt_Char(gv0068) = ""
    Next
End Sub

Sub txt_Code_Change ()
    gv0068 = Len(Trim(txt_Code)) = 6
    If  gv0068 <> cmd_Button(0).FontSize Then cmd_Button(0).FontSize =
gv0068
    txt_RegCode = ""
    For gv0068 = 0 To 5
        txt_Type(gv0068) = ""
        txt_Char(gv0068) = ""
    Next
End Sub

Sub txt_Code_GotFocus ()
    txt_Code.SelStart = 0
    txt_Code.SelLength = 6
End Sub

Sub txt_Code_KeyPress (KeyAscii As Integer)
    If  KeyAscii > 96 And KeyAscii < 123 Then
        KeyAscii = KeyAscii - 32
    ElseIf KeyAscii = 13 Then
        Call cmd_Button_event0000(0)
        KeyAscii = 0
    End If
End Sub

Sub txt_RegCode_GotFocus ()
    txt_RegCode.SelStart = 0
    txt_RegCode.SelLength = 6
End Sub

Sub txt_RegCode_KeyPress (KeyAscii As Integer)
    KeyAscii = 0
End Sub

Sub v_Title_event0009 (p009C As Integer)
    extsubC8
    p009C = extfn1E0(Me.hWnd, 274, -4078, 12517567&)
End Sub