1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
Public Class FSplashScreen Public Delegate Sub CloseDelegate() Public Sub CloseIt() Me.Invoke(New CloseDelegate(AddressOf CloseSplash), New Object() {}) End Sub Private Sub CloseSplash() Me.Close() End Sub End Class