Går det att göra någonting i VB som liknar Windows skärmsläckare: flyga genom rymden?

Hej
Ja . Kolla i Filarean Skärmsläckare
mvh
Sven

Om du vill göra en skärmsläckare har jag här ett tips på kul kod...

Gör en Form till Maximized med bakgrundsfärgen vit och använd denna kod tillsammans med lite knappar och textrutor etc.

Det som syns kallas för en Sierpinskis Triangel...

<CODE>Dim X1, Y1 As Integer
Dim Pixel As Integer
Dim G As Long

Private Sub cmdAvsluta_Click()
Unload Me
End Sub

Private Sub cmdStarta_Click()
cmdStarta.Enabled = False

Form1.Cls
Shape2.Width = 0
G = 0

For C = txtPunkter.Text To 1 Step -1

Randomize
Pixel = Int((3 * Rnd) + 1)

If Pixel = 1 Then

X1 = (Int(X1) + (Int(Screen.Width / 2))) / 2
Y1 = Y1 / 2

ElseIf Pixel = 2 Then

X1 = X1 / 2
Y1 = (Int(Y1) + Int(Screen.Height)) / 2

ElseIf Pixel = 3 Then

X1 = (Int(X1) + Int(Screen.Width)) / 2
Y1 = (Int(Y1) + Int(Screen.Height)) / 2

End If

G = G + 1

If G = txtPunkter.Text / 100 Then
Shape2.Width = Shape2.Width + 40
G = 0
End If

lblPunkter.Caption = X1 & " " & Y1

PSet (X1, Y1), QBColor(0)
DoEvents

Next C

cmdStarta.Enabled = True
End Sub

Private Sub Form_Load()
X1 = Screen.Width / 2
Y1 = Screen.Height / 2

Label1.Caption = "Ale Thoor" & vbCrLf & "ale_thoor@hotmail.com" & vbCrLf & "http://www3.ewebcity.com/gluup"
End Sub

Private Sub txtPunkter_Change()
If txtPunkter.Text < 1000 Then
txtPunkter.Text = 1000
ElseIf txtPunkter.Text > 10000000 Then
txtPunkter.Text = 10000000
End If
End Sub</CODE>

Ale Thoor