Some VB6 Code

Hello! im micksemps and il be giving you some code for Visual Basic 6
if you want a browse button look here:
http://daylwynter.pgsfreeforums.com/vp197.html#197

To use a command button put 1 on your form, double click it and put between the lines:

	Code:
	Call ShockwaveFlash1.SetVariable ("Variable", Value)

To use a command button which freezes values put a timer and command button on your
form, Click on your timer go to propertys and select Enabled = False and Interval = 1
Then enter this:

	Code:
	Private Sub Command1.Click () Timer1.Enabled = true End Sub Private Sub Timer1_Timer () call ShockwaveFlash1.SetVariable ("Variable", Value) End Sub

If you want a Command button to freeze a value and can turn on or off enter this in your
code

	Code:
	Private Sub Command1.Click () If Timer1.Enabled = False Then Timer1.Enabled = true Command1.Caption = "Whatever u Want" Else Timer1.Enabled = False Command1.Caption = "Whatever u Want" End If End Sub Private Sub Timer1_Timer () call ShockwaveFlash1.SetVariable ("Variable", Value) End Sub

To use a Setvariable function (A command with a textbox) use this code

	Code:
	Call ShockwaveFlash1.SetVariable ("Variable", Text1.Text)

To use a Set Variable function which freezes the value use the code above in a timer and
customize the timer propertys so that Enabled = False and Interval = 1, now insert this code
into a command button:

	Code:
	Timer1.Enabled = False

To use a Set Variable function which freezes the value and can turn on and off use this code in
the Timer:

	Code:
	Call ShockwaveFlash1.SetVariable ("Variable", Text1.Text)

and put this into a Command Button:

	Code:
	If Timer1.Enabled = True Timer1.Enabled = False Command1.Caption = "Whatever u want" Else Timer1.Enabled = True Command1.Caption = "Whatever u want" End if End Sub

If anything above isnt working or if you want anything else let me know.
PLEASE STICKY CUZ IT'LL HELP LOTS!

_________________
Cool, People
AVP
1337!