Few tweaks to the main window and added an about dialog

.src/AboutDiag.class

@@ -0,0 +1,26 @@
+' Gambas class file
+
+Public Sub Run() As Boolean
+
+  Return Not Me.ShowModal()
+
+End
+
+Public Sub btnOK_Click()
+
+  Me.Close(True)
+
+End
+
+Public Sub btnCancel_Click()
+
+  Me.Close
+
+End
+
+
+Public Sub Form_Open()
+
+  Label2.Text = "Version " & Application.Version
+
+End

.src/AboutDiag.form

@@ -0,0 +1,43 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,64,64)
+  Text = ("About Vimus")
+  Icon = Picture["icon:/256/info"]
+  Resizable = False
+  Spacing = True
+  Margin = True
+  { PictureBox1 PictureBox
+    MoveScaled(24,4,16,16)
+    Picture = Picture.Load("icon2048.png")
+    Stretch = True
+  }
+  { Label1 Label
+    MoveScaled(15,21,34,6)
+    Font = Font["+7"]
+    Alignment = Align.Center
+    Text = ("Vimus")
+  }
+  { Label2 Label
+    MoveScaled(19.4286,27,25,5)
+    Font = Font["+3"]
+    Alignment = Align.Center
+    Text = ("Version X.X.X")
+  }
+  { Label3 Label
+    MoveScaled(4.4286,33,55,20)
+    Alignment = Align.Top
+    Text = ("A simple song and album visualizer made with Gambas.\n\nThis software is licensed under the GNU General Public\nLicense version 3: you are free to use, study, modify and\nredistribute it as long as you give back to the community\nby using the same license on any modified version.")
+  }
+  { URLLabel1 URLLabel
+    MoveScaled(21,50,22,6)
+    Alignment = Align.Center
+    Text = ("www.gianmarco.ga")
+    Link = "https://gianmarco.ga"
+  }
+  { btnOK Button
+    MoveScaled(24,58,16,4)
+    Text = ("OK")
+    Default = True
+  }
+}

.src/FMain.class

@@ -43,3 +43,11 @@ Public Sub Form_Open()
   Timer1.Start
 
 End
+
+Public Sub Form_KeyPress()
+
+  If Key.code = Key.F1 Then
+    AboutDiag.ShowDialog
+  Endif
+
+End

.src/FMain.form

@@ -3,6 +3,8 @@
 { Form Form
   MoveScaled(0,0,177,89)
   Background = Color.Black
+  Mouse = Cursor.None
+  Icon = Picture["icon2048.png"]
   FullScreen = True
   Arrangement = Arrange.Fill
   Centered = True