Dim passo As Integer
Private Sub Form_dblClick()
Dim ris As Integer
ris = MsgBox("sei sicuro di voler uscire?", vbQuestion + vbYesNo, "exit")
If ris = vbYes Then
End
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim risp As Integer
If KeyCode = 27 Then
risp = MsgBox("vuoi uscire", vbQuestion + vbYesNo, "exit")
If risp = vbYes Then
End
Else
Unload Me
Form1.Visible = True
End If
End If
End Sub
Private Sub Form_Load()
passo = 10
End Sub
Private Sub Timer1_Timer()
If Form1.mnu12.Checked = True Then
Label2.FontSize = 12
End If
If Form1.mnu14.Checked = True Then
Label2.FontSize = 14
End If
If Form1.mnu16.Checked = True Then
Label2.FontSize = 16
End If
If Form1.mnu18.Checked = True Then
Label2.FontSize = 18
End If
If Form1.mnu20.Checked = True Then
Label2.FontSize = 20
End If
If Form1.mnu25.Checked = True Then
Label2.FontSize = 25
End If
If Form1.mnu30.Checked = True Then
Label2.FontSize = 30
End If
If Form1.mnu35.Checked = True Then
Label2.FontSize = 35
End If
If Form1.mnu50.Checked = True Then
Label2.FontSize = 50
End If
If Form1.mnu70.Checked = True Then
Label2.FontSize = 70
End If
If Form1.mnusottolineato.Checked = True Then
Label2.FontUnderline = True
End If
If Form1.mnugrass.Checked = True Then
Label2.FontBold = True
End If
If Form1.mnucorsivo.Checked = True Then
Label2.FontItalic = True
End If
If Form1.colori.Color = 0 Then
Label2.ForeColor = &H8000&
Else
Label2.ForeColor = Form1.colori.Color
End If
If Form1.Text1.Text <> "" Then
Label2.Caption = Form1.Text1.Text
Else
Label2.Caption = "introduci il testo"
End If
If Label2.Left < 1050 Then
Label2.Left = Label2.Left + passo
Else
Label2.Left = -5
End If
End Sub