效果图 素材 代码 Dim B0, B1, B3 As Bitmap Private B As Bitmap = Nothing Private Sub Loading_Load(sender As Object, e As EventArgs) Handles MyBase.Load B0 = My.Resources.P0.Clone B1 = My.Resources.P1.Clone B3 = My.Resources.P3.Clone Me.Show() End Sub Private…