PureBasic Forums - English

Restored from previous forum. Originally posted by marlo.

Gracias , El_Choni (Jhonny) Thanks.
This is the part is missing , from the code here, continue the code you translate to PB. Vamos Campeon!!! I no put this part of code because i think is only VB form commands, but maybe here are something to make the thing work.


VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 2940
ClientLeft = 0
ClientTop = 0
ClientWidth = 5190
LinkTopic = "Form1"
ScaleHeight = 196
ScaleMode = 3 'Pixel
ScaleWidth = 346
Begin VB.CheckBox chkPaused
BackColor = &H00FF00FF&
Caption = "Paused"
ForeColor = &H00C000C0&
Height = 195
Left = 4185
MaskColor = &H00000000&
TabIndex = 3
Top = 2670
Width = 195
End
Begin VB.Timer Timer1
Interval = 100
Left = 1830
Top = 1350
End
Begin VB.Label lblPaused
BackStyle = 0 'Transparent
Caption = "Paused"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 4440
TabIndex = 4
Top = 2670
Width = 690
End
Begin VB.Label lblSource
BackStyle = 0 'Transparent
Caption = "Set video source"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 45
TabIndex = 2
Top = 255
Width = 1500
End
Begin VB.Label lblSize
BackStyle = 0 'Transparent
Caption = "Set video size"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 45
TabIndex = 1
Top = 30
Width = 1365
End
Begin VB.Label lblQuit
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 285
Left = 4920
TabIndex = 0
Top = -60
Width = 225
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

------Here continues the code you translate Choni--------------------

from the ass of the world