' Create a menu called File with at least 3 menu choices beside the Open 
command
' and the Exit command.  In other words, your File menu will have 5 or 
more commands.

Private Sub cmdCopy_Click()
    Clipboard.Clear
    Clipboard.SetData pic.Image, 2
End Sub

' Create a menu called Mirror with a hot key of M.
' The menu will have FOUR menu choices.  Left to Right, Right to Left,
'                                        Top to Bottom, Bottom to Top
' VIP - YOU DO NOT NEED TO ADD THE OTHER FOUR Mirror MENU CHOICES!

'   The hot key for Left to Right is L
'   The hot key for Right to Left is R
'   The hot key for Top to Bottom is T
'   The hot key for Bottom to Top is B
'
' Turn in a printout of your code and a printout of the running program.
' The running program will be printed using Alt+PrintScreen and pasting it
' into Word 97 or some other program 5 times.
' 1. The original graphic image.  (Choose whatever image you like).
' 2. The upper left corner mirrored to the other 3 corners.
' 3. The upper right corner mirrored everywhere.
' 4. The lower left corner mirrored to both top halves and to the right 
half.
' 5. The lower right corner mirrored to the other 3 corners.
' All FIVE of these screen snapshots will probably fit on one page or at 
most two
'   pages of printout.  Collectively, they will prove that all 4 commands 
work.
'
Private Sub mnuSkier_Click()
    pic.Picture = LoadPicture("P:\jacobson\basic\skiier.jpg")
End Sub
Private Sub mnuUNIcampanile_Click()
    pic.Picture = LoadPicture("P:\jacobson\basic\campanile.gif")
End Sub

Private Sub mnuUNIlogo_Click()
    pic.Picture = LoadPicture("P:\jacobson\basic\unitop.gif")
End Sub

Private Sub mnuUSD_Click()
    pic.Picture = LoadPicture("P:\jacobson\basic\southdakota.gif")
End Sub

Private Sub mnuVermeer_Click()
    pic.Picture = LoadPicture("P:\jacobson\basic\vermeer.gif")
End Sub
Private Sub mnuExit_Click()
    End
End Sub


Private Sub mnuFriendsRectangular_Click()
    pic.Picture = LoadPicture("P:\jacobson\basic\friendsoriginal.gif")
End Sub

Private Sub mnuFriendsSquare_Click()
    pic.Picture = LoadPicture("P:\jacobson\Basic\friends.gif")
End Sub
Private Sub mnuOpen_Click()
'    theFileName = InputBox("What file would you like to try?" & vbCrLf & 
_
'                            "Example 1:  A:\mygraphic" & vbCrLf & _
'                            "Example 2:  Z:\web\mybutton.gif")
    cdbDialog.DialogTitle = "Open a favorite graphics picture"
    cdbDialog.Filter = "*.gif;*.jpg;*.bmp"
    cdbDialog.FileName = "*.gif;*.jpg;*.bmp"
    cdbDialog.ShowOpen
    pic.Picture = LoadPicture(cdbDialog.FileName)
End Sub
Private Sub pic_MouseUp(Button As Integer, Shift As Integer, X As Single, __
                                                             Y As Single)
    If Button = 2 Then
        PopupMenu mnuMirror
    End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, _ 
                                                              Y As Single)
    If Button = 2 Then
        PopupMenu mnuFile
    End If
End Sub

Private Sub mnuLeftToRight_Click()
    Dim X As Single
    Dim Y As Single
    Dim wid As Single
    
    wid = pic.ScaleWidth
    For X = 0 To wid / 2
        For Y = 0 To pic.ScaleHeight
            pic.PSet (wid - X, Y), pic.Point(X, Y)
        Next Y
    Next X
End Sub
Private Sub mnuRightToLeft_Click()
    Dim X As Single
    Dim Y As Single
    Dim wid As Single
    
    wid = pic.ScaleWidth
    For X = 0 To wid / 2
        For Y = 0 To pic.ScaleHeight
            pic.PSet (X, Y), pic.Point(wid - X, Y)
        Next Y
    Next X
End Sub
Private Sub mnuTopToBottom_Click()
    Dim X As Single
    Dim Y As Single
    Dim ht As Single
    
    ht = pic.ScaleHeight
    For Y = 0 To ht / 2
        For X = 0 To pic.ScaleWidth
            pic.PSet (X, ht - Y), pic.Point(X, Y)
        Next X
    Next Y
End Sub
Private Sub mnuBottomToTop_Click()
    Dim X As Single
    Dim Y As Single
    Dim ht As Single
    
    ht = pic.ScaleHeight
    For Y = 0 To ht / 2
        For X = 0 To pic.ScaleWidth
            pic.PSet (X, Y), pic.Point(X, ht - Y)
        Next X
    Next Y
End Sub
Private Sub mnuSEtoNW_Click()
    Dim X As Single
    Dim Y As Single
    Dim last As Single
    
    If pic.ScaleWidth < pic.ScaleHeight Then
        last = pic.ScaleWidth
    Else
        last = pic.ScaleHeight
    End If
    
    For Y = 0 To last
        For X = 0 To (last - Y)
            pic.PSet (X, Y), pic.Point(last - Y, last - X)
        Next X
    Next Y
End Sub
Private Sub mnuLLtoUR_Click()
    Dim X As Single
    Dim Y As Single
    Dim last As Single
    
    If pic.ScaleWidth < pic.ScaleHeight Then
        last = pic.ScaleWidth
    Else
        last = pic.ScaleHeight
    End If
    
    For Y = 0 To last
        For X = 0 To Y
            pic.PSet (Y, X), pic.Point(X, Y)
        Next X
    Next Y
End Sub

Private Sub mnuNEtoSW_Click()
    Dim X As Single
    Dim Y As Single
    Dim last As Single
    
    If pic.ScaleWidth < pic.ScaleHeight Then
        last = pic.ScaleWidth
    Else
        last = pic.ScaleHeight
    End If
    
    For Y = 0 To last
        For X = 0 To Y
            pic.PSet (X, Y), pic.Point(Y, X)
        Next X
    Next Y
End Sub

Private Sub mnuNWtoSE_Click()
    Dim X As Single
    Dim Y As Single
    Dim last As Single
    
    If pic.ScaleWidth < pic.ScaleHeight Then
        last = pic.ScaleWidth
    Else
        last = pic.ScaleHeight
    End If
    
    For Y = 0 To last
        For X = 0 To (last - Y)
            pic.PSet (last - Y, last - X), pic.Point(X, Y)
        Next X
    Next Y
End Sub