🚀 go-pugleaf

Looks like a bunch of module calls

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