Как сделать чтобы при просмотре изображений можно ...

[Algol]

Как сделать чтобы при просмотре изображений можно было просматривать их в полный экран

[Cyrax]

убрать у формы границу и заголовок (Form.BorderStyle = vbNone) и развернуть ее на весь экран (Form.WindowState = vbMaximized). ну и, соответственно, при необходимости растянуть картинку на всу форму

[Algol]

Мне нужно чтобы было к примеру как в ACDC.Например при просмотре картинок в слайд- шоу.

[A.A.Z.]

Ну?

Код: Выделить всё

'Добавь на форму Image и загрузи в нее какую-то картинку
'у формы BorderStyle = 0 - None

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then End
End Sub

Private Sub Form_Load()
Me.Left = 0
Me.Top = 0
Me.Height = Screen.Height
Me.Width = Screen.Width
Me.Refresh
Me.BackColor = vbBlack
Image1.Left = (Me.Width \ 2) - (Image1.Width \ 2)
Image1.Top = (Me.Height \ 2) - (Image1.Height \ 2)
MsgBox "ESC to exit"
End Sub