transparency, BitBit() and number sorting

[Ace Dude]

1. Transparency
Will a gif with a transparent background still have a transparent background on a form? If not then how can i get transparent backgrounds?

2. BitBit()
Unless it is very complicated and hard to explain could you show how to use BitBit() for animation?

3. number sorting
i have this code:

Dim dblAns As String 
Dim intDig As Integer
Dim dbl As String
dblAns = "2856457889"
 
For intNum = 1 To Len(dblAns) 
     intDig = Mid(dblAns, intNum, 1) 
          
     If (intDig Mod 2) = 0 Then
          If Len(dbl) Then
               dbl = dbl & ", " & Format(intDig)
          Else
               dbl = Format(intDig)
          End If
     Else
           dbl = dbl & Format(intDig)
     End If
Next intNum
 
MsgBox "The numbers are:" & dbl

it splits the number 2856457889 into 2, 85, 6, 457, 8, 89
even numbers start a new number
rather than putting the split numbers into a string and displaying it in a msgbox i want it to load a new txtbox eg. txtNum fo each number.

thnx 4 help and i hope this post is more successful than last time

[Ace Dude]

also is there some code so you can shut down the computer when you click on a command button?

might come in useful...