Resize Screen

[Golf]

Hi everyone I made a small but I think useful tutorial. Allows you to change the size of your screen

**EO 2.0 & 3.0**

**Only Client Side**

Go to **picOptions** and add one label and one **scrollbar**

name it l**blScreen** and **sclScreen**

Now click on **sclScreen** and paste this

> If sclScreen.Value = 0 Then
>
> End If
>
> If sclScreen.Value = 1 Then
>
> lblScreen.Caption = "Bigger"
>
> picScreen.height = 394
>
> picScreen.width = 490
>
> picBank.height = 394
>
> picBank.width = 490
>
> picTrade.height = 394
>
> picTrade.width = 490
>
> End If
>
> If sclScreen.Value = 2 Then
>
> lblScreen.Caption = "Big"
>
> picScreen.height = 404
>
> picScreen.width = 500
>
> picBank.height = 404
>
> picBank.width = 500
>
> picTrade.height = 404
>
> picTrade.width = 500
>
> End If
>
> If sclScreen.Value = 3 Then
>
> lblScreen.Caption = "Biggest"
>
> picScreen.height = 414
>
> picScreen.width = 510
>
> picBank.height = 414
>
> picBank.width = 510
>
> picTrade.height = 414
>
> picTrade.width = 510
>
> End If
>
> If sclScreen.Value = 0 Then
>
> lblScreen.Caption = "Normal"
>
> picScreen.height = 384
>
> picScreen.width = 480
>
> picBank.height = 384
>
> picBank.width = 480
>
> picTrade.height = 384
>
> picTrade.width = 480
>
> End If

Go to **frmMain.Load** and paste this

> sclScreen.Max = 3
>
> sclScreen.Min = 0

And that's all Thanks 

Small Tutorial with easy codes

[abhi2011]

Nice tutorial. It would be nicer to allowing scaling.

(I am not sure but won't resizing picScreen mean that you will have to change MAP_X and MAP_Y)

Also use Select statement rather than If statements.

[Golf]

Thank you. I will try to do a better tutorial soon

[Gottofwar]

where the hell is picOptions only part im confused on

[abhi2011]

Depends on which engine you use. But it is in frmMain. Find picOptions from the dropdown menu in the properties window. Choose it. You'll see a blue boxes on the screen. Right-Click one of them and press bring to front.

[vqoley]

confused.. where is the **frmMain.Load?**

[abhi2011]

frmMain = form

Load = Sub.

[soulsoldier2]

what is sub sorry im a noob

[jcsnider]

A Sub is a chunk of code. To find the sub, open up frmMain in VB6… double click on the form to enter code view and then use CTRL+F to find "frmMain_Load".