rem 翻转之后再翻转回来 Private Sub Command5_Click() '水平翻转 If Text1.Text = "+" Then Picture1.PaintPicture Image1.Picture, Picture1.Width, 0, -Picture1.Width, Picture1.Height Text1.Text = "-" Else Image1.Picture = LoadPicture(App.Path & "\狗狗.jpg") Text1.Text = "+" End If End Sub