Solved!
Sub New()
InitializeComponent()
TheMainWindow.Opacity = 0
End Sub
Private Sub TheMainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles TheMainWindow.Loaded
Dim DATheMainWindow = New DoubleAnimation With {
.From = 0.0,
.To = 1.0,
.FillBehavior = FillBehavior.Stop,
.BeginTime = TimeSpan.FromSeconds(0),
.Duration = New Duration(TimeSpan.FromSeconds(1))
}
AddHandler DATheMainWindow.Completed, Sub(a, b) TheMainWindow.Opacity = 1
Dim storyboardTheMainWindow = New Storyboard()
Storyboard.SetTarget(DATheMainWindow, TheMainWindow)
Storyboard.SetTargetProperty(DATheMainWindow, New PropertyPath(OpacityProperty))
storyboardTheMainWindow.Children.Add(DATheMainWindow)
storyboardTheMainWindow.Begin()
End Sub