Code: Select all
Randomize
Dim As UInteger rclr = &hFFFFFF*Rnd
-Vince
Code: Select all
#Include "dir.bi"
Function DirExists(path As String) As Integer
Return Dir(path,fbDirectory) <> ""
End Function
Code: Select all
<StructLayout(LayoutKind.Explicit, Pack:=1)>
Structure.....
...
...
End Structure
Code: Select all
#Include "fbgfx.bi"
ScreenRes 800,600,32
For x As Integer = 0 To 800
ScreenControl(FB.SET_WINDOW_POS, x,0)
Sleep 1
Next
D.J.Peters wrote:D.J.Peters wrote:Sorry I stopped the development of FBSound, it's dead.