🚀 go-pugleaf

Any chance of posting the rest of it, ie. all the additional subs and
functions it calls ?

SJ
(Who thinks the answer may be "Why?")

On Tue, 29 Dec 1998 18:55:12 -0000, "Daniel Blamire" <news17@usa.net>
wrote:

>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
>
>