Sub Button()
UserForm1.Show False
DoEvents
Application.Run "Schachbrett"
Unload UserForm1
End Sub
Sub Schachbrett()
For i = 1 To 2
Farbe = Int(16777216 * Rnd)
For Row = 1 To 2
Application.Wait Now + TimeValue("00:00:01")
If WorksheetFunction.IsOdd(Row) Then
For Col = 2 To 8 Step 2
Cells(Row, Col).Interior.Color = Farbe
Next Col
Else
For Col = 1 To 8 Step 2
Cells(Row, Col).Interior.Color = Farbe
Next Col
End If
Next Row
Next i
End Sub
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "about:<html><body scroll=no><img src =""C:\Users\Christoph\Desktop\Bana.gif""></img></body></html>"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Style.Border = "none"
WebBrowser1.Document.body.Scroll = "no"
End Sub