Creating a Picture Viewer in VB6

Private Sub Form_Load() 
    ' Center the form on screen
    Left = (Screen.Width - Width) \ 2 
    Top = (Screen.Height - Height) \ 2 
    
    ' Initialize file type options
    Combo1.Text = "All graphic files"
    Combo1.AddItem "All graphic files"
    Combo1.AddItem "All files"
End Sub 

Private Sub Combo1_Change() 
    ' Set file pattern based on selection
    If Combo1.ListIndex = 0 Then
        File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")
    Else
        File1.Pattern = ("*.*")
    End If
End Sub 

Private Sub Dir1_Change() 
    ' Update file list when directory changes
    File1.Path = Dir1.Path
    File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")
End Sub 

Private Sub Drive1_Change() 
    ' Update directory when drive changes
    Dir1.Path = Drive1.Drive
End Sub 

Private Sub File1_Click() 
    ' Handle file selection
    If Combo1.ListIndex = 0 Then
        File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")
    Else
        File1.Pattern = ("*.*")
    End If

    If Right(File1.Path, 1) <> "\" Then
        filenam = File1.Path & "\" & File1.FileName
    Else
        filenam = File1.Path & File1.FileName
    End If
    Text1.Text = filenam
End Sub 

Private Sub show_Click() 
    ' Display the selected image
    If Right(File1.Path, 1) <> "\" Then
        filenam = File1.Path & "\" & File1.FileName
    Else
        filenam = File1.Path & File1.FileName
    End If
    ' Load the picture into the picture box
    Picture1.Picture = LoadPicture(filenam)
End Sub